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ALL PROGRAMS IN THIS PACKAGE ARE TO BE USED BY ANY STUDENT 
TAKING A FUNDAMENTALS OR REMEDIAL COURSE IN .CHEMISTRY 



ALL TERMINALS SHOULD BE SET WITH THE FOLLOWING CHARACTERI- 
STICS . USING THE ' TTYSET ' COMMANDS.;' 



Ill 



A - WIDTH 81 
\ B - LC OUTPUT 



ALL PROBLEMS HAVE, BEEN WRITTEN 
THESE PROGRAMS 'CANNOT BE RUN ON 
HAVE A BASIC PLUS COMPILER . IT 
IN ALMOST , ALL CASES » ANY DATA G 
FORE NO TWO RUNS OF THE SAME PR 
SAME DATA. ' 



V 



IN BASIC PLUS LANGUAGE. 
A COMPUTER THAT DOSEN'T 
SHOULD BE NOTED THAT 
IVEN IS RANDOMIZED. THERE - 
OGRAM- WILL CONTAIN THE \ 



IV ~ EACH PROGRAM » WHEN RUN y WILL PI 
THIS IS FOR THE INSTRUCTORS USE 

SPONCES to this; are: 



INT 'CODE *?' . 

THE POSSIBLE 



ONLY, 



RE- 



A - 



PRESS #1 
COMPUTER 
TAINED W 
/THE' COMP 
(ANSWER » - 
ANSWERS 
FQ> THE 
THAT THE 
HOMEWORK 



FOLLOWED 'BY<CR>r Tlil-S ,WILL CAUSE THE 
TO PRINT OUT JUST THE PROBLEMS CON-r 
ITHIN THE PROGRAM. THIS MEANS THAT" .. 
UTER WILL NOT WAIT- FOR THE STUDENT'S : V ; 

FALLOWING THE PROBLEMS -THE CORRECT 
WILL BE PRINTED OUT ♦ THIS IS INTENDED 
INSTRUCTORS/USE ONLY. OUR AIM WAS' 
SE QUESTIONS COULD BE USED AS A TEST OR 
ASSIGNMENTS* '. 



PRESSED 



FOLLOW THE /SAME 



FOLL 



OWED BY 



B -/. WHEN ANY OTHER CHARACTER 
/.' THE <CR> ALL PROGRAMS; WILL 

PATTERN . . THAT IS i- . IT WILL ASK FOR THE STU- . 
DENT' S . NAME AND ID* BEFORE PROCEEDING TO THE 
/PROBLEMS THEMSELVES. THE PROGRAM WILL NOW BE 
IN A 'PRACTICE SESSION ' MODE (SEE V)'. 

/ . . ' . ■ '■ ... ' ' 



PRACTICE 



SESSJON 



MODE 



A - WHEN THE PROGRAM'. IS RUN IN THIS MODE 
' STUDENT .WILL BE ASKED TO SOLVE A SET 



THE 

OF PROBLEMS ♦ 



4 



.('■■■ 
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B — THERE IS NO SET TIME LIMIT FOR THE- STUDENT TO . COMPLETE 
THE SESSION OR TO SOLVE THE PROBLEMS* HOWEVER'!' . 
I- V, =' , THE; ^TUBENTS ARE . GIVEN TWO CHANCES TO ANSWER 
* ' A QUESTION, CORRECTLY- AFTER THE SECOND INCORRECT AN- * 

, SWER THE COMPUTER WILL PRINT OUT THE GORR'ECT. r 
NUMERICAL ANSWER. -BUT , WILL NOT SHOW THE STEPS "/ 
• : , USED TO ARRIVE 'WPiJHAT, ANSWER . • • .. , /" 

, '" C. - THE COMPUTER - Willl4KEEP A RECORD/ OF ALL COR-" / 
. . > RECT ANSWERS BUT WiLL NOT INTRICATE IFnTHE 

CORRECT ANSWER WAS OBTAINED IN THE FIRST XiR -h 

■ V . second try, - , ' *?< ■•."'/ .■ 

D - 'AT THE END OF "A SESSION THE COMPUTER WIiIl'? 

PRINT OUT ALL -OF 'THE CORRECT 'ANSWERS AND ! ' 
... THE STUDENT -ANSWERS, /, ' * % ■ : 

; ■ "■{] - " ■ ' : ■ ? - ■".&■■>■■.'■:- ■ ■ 

WHEN WE STARTED THIS TASK OF^WRITINa PROGRAMS TO BE USED AS 
PRACTICE SESSIONS' B'Y THE STJJDENTS -IN^EPT,, 1^7%r J WE, DID NOT\ 
HAVE ANY KNOWLEDGE OF COMPUTER- PROGRAMMING^," . . . w . 

this can be seen in the programs themselves* that" have. a 
low degree of sophistication. as time progressed r anlf we 
learned more techniques in programming » the sophis- 
tication of we programs increased, although we thought that /the 
structure of the programs should be kept straight' foward 7 ' 
and simple enough so anybody with some knowledge of basic / 
plus language odllld follow what was done. our'" aim. was / ; 
to Learn enough computing knowledge .to be able to develope ' - "*•• 
programs that students could benefit from ' i 'i, ! ' 

final comments: - : • 

this package was developed. by dr. julio gallardo and 
mr.. steven delgado of tjhie physical science dept. of hostos 
community college of g.u.n, y. '.."',/ ■< 

in our last editing we have tried to erase all mistakes, but as 
usually happens ? ■ many of them may have escaped our scrutiny. 

- ", :, . ■ ' - . ; ■/ : , ■ ' : "•• . 

ANY COMMENTS* SUGGESTIONS OR CORRECTIONS THAT YOU MAY HAVE ABOUT 
THIS PACKAGE MAY BE SENT TO J / • - 

• ',' • .••'/• ' / • •'.'"'•. 

DR. JUL JO' GALLARDO / 

. Or '"• ■ / • • 

MR, STEVEN DELGADO •/.'.' ' . - 

PHYSICAL SCIENCE DEPT. 
HOSTOS COMMUNITY COLLEGE 
• 475 GRAND CONCOURSE/ 

BRONX y y NEW YORK 1 0/4 51 



/»•' 



, FlNAj&Y WE WOULD LIKE .TO THANK /.'DR, ,A » MURIEL FOR GIVING .US THE: 
: CH-ANdfe TO BE PARTICIPANTS IN THIS PROJECT » u , " I 
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'FILE NAME 
********* 



DESCRIPTION 
************ 



I^NST 



,**************** INSTRUCTIONS . FOR USING i ALL PROGRAMS 

IN THIS PACKAGE . FROM HERE A STUDENT 
CAN CHOOSE ANY TOPIC HE WISHES TO DO.' 



,,. CHEOOG 



CHE108 



**************** 



A PRACTICE SESSION- USING INTERGE/RS \ 
WITH VARIOUS MATHEMATICAL OPERATIONS! 
(ADD is" SUB . t • MULT.> AND DIVV) THIS! 
SESSION CONSISTS OF 12 PROBLEMS . ' 



**************** a practice session using'; decimals 

• ' 'With • various mathematical operations. 

; this session has 15 ' problems . 



CHE2G8 



CHE308 



CHE40S 



CHE508 



**************** A PRAQTICE_S_ESSId'N IN SOLVING PROJ^OR- 

" TIONS AND PERCENTAGE PROBLEMS . THI S 
. , : SESSION HAS 16 PROBLEMS . . ' 



**************** 



**************** 



A PRACTICE SESSION IN CONVERTING - FROM 
THE METRIC SYSTEM TO 
TEM AND VISA VERSA . 
15. PROBLEMS . 



THE 



ENGL lb 



H SYS- 



THIS 5 SESSION HAS 



A PRACTICE SESSION USING THE .METRIC 
SYSTEM IN WORD PROBLEMS* THIS, SESS- 
I ON 4 HAS 10 QUESTIONS. ' 



»I0 



**************** A PRACTICE SESSION ON WORD PROBLEMS ? 

c USING ALL OF THE ABOVE INFORMATION. 

T , V HERE A STUDENT CAN CHOOSE THE NUMBER 

• OF PROBLEMS HE WISHES TO DO-. THIS . 

SESSION-HAS 14 QUESTIONS. 'v\ 



C HE60S ****************_ THESE ARE.- THE INSTRUCTIONS TP BEMUSED, 
T~".- t ' ' : r ~/~~~- I .' "" r "\ "T':---^ "g'EFORE THE STUDENT^ANSWERS" THE 7 RUEST> 
. ' •: \ . ; .TONS ; 0N .BALANCING CHEMICAL EQUATIONS, 

r" .?. '/."••' . THIS PROGRAM RANDOMLY CHAINS TO ANY . 

ONE :.QF 4 PROGF*AMS ON BALANQIHG EQUAT- 
•:.••'•* TONS ^'EGIUAT ,2*3*4 OR 3) ♦ '• 

'eQ0^T.:2~5 * * % * * * * * * * * * * * *.* T H E S E A RE THE PROGRAMS CHAINED TO CHE 
! '• 'AOS. THEY, EACH HAVE 10 DIFFERENT EQUA- 

'. '/-. I . • TIONS. . Tf-TEY- X CAN EACH RUN ON AN; IN~ 

\ 'V: DIVIDUAL BASIS^ BUT ARE NOT CHAINED TO 
i •* THE' ' INST ' FILE' 
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.FILE NAME 

"■It tt SW St' SV SV SU Sk" 



CHE708 



* * * * * Xc. ****** * * * * 



DESCRIPTION. 
jf( )jc *K )f( ^jfc )fc *K $ 



A PRACTICE SESSI 
ASKING' THE STUDE 
IONS -WHICH 1 HAVE- 
ICULTY. FROM HE 
CHOOSE TO CONTI 
IONS (CHE713) 



UHlfiH 



N ON STOICHIOMETRYy 
f TO ANSWER S QUEST- 
LOU . DEGREE OF BIFF: 
E THE, STUDENT^CAN " 
E TO 10 MORE QUEST- 
ARE OF GREATER 



. DIFFICULTY s>. OR END THE SESSION ♦ 



* .CHE718 **************** THIS IS A CONTINUATION , OF CHE708 BUT 
. . '. : . WITH HARDER PROBLEMS . THIS PROGRAM • 

- • v CAN RUN ON ITS OWN BUT„TS "NOT CHAINED 

i , TO THE 'INST' FILE* 4*.". • ' : ' < 

CHESCfa V *****'***'********. A PRACTICE SESSION §iM THE GAS LAWS* 
■ v.;; -j •>••* . : -CONTAINING 15 QUESTIONS'VOF MODERATE • '* 

• .. > - :• ' DIFFICULTY. THE "STUDENT CAN' CHOOSE •* 

'■■[;:■■.■■ ■"• TO DO 5? 10 OR ALL 15 PROBLEMS. 

**************.*** A PRACTICE SESSION ON SOLUTIONS »' CON- - 

* ■ SISTING OF 15 QUESTIONS DEALING WITH :> . * 

MOLALITY AND PERCENT SOLUTION. THE V 
•STUDENT CAN CHOOSE TO DO .5* 10 OR ALL 
IS. PROBLEMS. - ' ^ 

' ''' ~ *' ■ ■ , : " . '• . f ' • ■ ' ' '• • ' . . ' ■ 

• ***************'* A PRACTICE SESSION ON , SOLUTIONS ( II )..» . *- 
v ' CONSISTING "'t» IS QUESTIONS y DEALING \ ? 

' «•.':' , WITH NORMALITY AND MOLARITY. THE STU- 

DENT CAN CHOOSE 5? 10 OR ALL .15 QUEST"- '. '. 
• IONS TO ANSWER. '. > " 



CHE908 



CHE018 



CHEOi'8 



-^.**Jj#k************ A PRACTICE SESSION ON THE GAS LAWS 
, ■' ■ . '( II) r CONSISTING OF '15 QUESTIONS OF 
- . . , ' i GREATER DIFFICULTY THEN C.HE80S ♦ . A. 

.'' ; : I"'-'-. . ' STUDENT CAN CHOOSE 5t. 10 OR IS QUEST- 

a 'IONS OR : CANGO ON TO AN ADDITIONAL 5 V 

10 OR 15 QUESTIONS IN CHE038 . 



•CH.E038" ' ****************' THIS IS A CONTINUATION OF CHE023 ♦' 

. - : THIS PROGRAM' IS CHAINED' TO' CHE023. 

V • ■ >. '■ EACH OF THESE PROGRAMS ARE GEARED . TO 

- 'THE GENERAL CHEMISTRY STUDENT ? BUT 

• •/ MAY BE USED BY THE STUDENT TAKING A . 

FUNDAMENTALS OF .CHEMISTRY COURSE. 
. THIS PROGRAM .16 NOT CHAINED- TO THE 

'INST.' FILE.' . . 



SAMPLE **************** THIS IS A SAMPLE' RUN OF CHE508 ♦ ' . IT 

WILL SHOW HOW THE PROGRAM WILL 'RUN ' 
, . AND ALSO 'HOW IT CAN FUNCTION AS A 

:'••■' SAMPLE TEST FOR THE INSTRUCTOR TO- USE' 
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INST, iOifz ■ -la-AF-r-/? •• 

5 REM. -' THIS PROGRAM SHOULD 'RUN WITH' THE- TER^nAL SET AT ? WIDTH- 31 
10 J THIS PROGRAM" PRINTS INSTRUCTIONS . \ • ' - 3V.-- v 

1-3* !. THIS PROGRAM HiSiS- 36E.EN PREPARED BY ;DR» JULIO GAl-l-SRM AND 'MR ♦ STEVEN 
1-6 ! BELGADO OF THE. PHYSICAL SCIENCE DE&T-. OP . HO 8 TO 8 COMMUNITY COLLEGE. AND > IS « 
17 ! BEING SUBSIDIZED- BY A GRANT FROM THE NATIONAL SCIENCE ' -FOUNDATION.-. #*###***:|e 
19 PRIHTNPRIrJTVPRTiLr . V " .• . ' ' ' " ~ •*/'••-,.' • .-.'<'. ' 

30 PRINT >" THE •; FOLLOWI/fG" PRACTICE .SESSIONS HAVE BEEN PREPARED- FOR YOUR'' USE. BE-" 

3 1 • ' P R'l-ftT *£" ORE YOU START* PLEASE READ ALL; INSTRUCT! ONS~bA'RERULLY-. MAKFrsljRE" A ' 
3i2" PRINT " THAT YCtl UNDERSTAND THEM COMPLETELY;??; BEFORE ,.YOtJ ATTEMPT TO SQLV& 'AN*!*' 

. - . . ... . ' _". . ASK 

34'- PRINT * "TOR FOR ASSlSTANC'E^XPRiNTXPRINT' 



^3,, PRINT '"OF' THE PROBLEMS THAT - WILL BE, .PRESE'M-TED'T-ilfF 'Jfc DOUBT? ASK ' THE. 'iNSTRliC'-' 
54' PRINT* "TOR FOR ASSlSTANC'EV\PRlNT\PRINT . «'' ^w^-C-'*' 
30 SLEEP 25 ' 



AT- A. TINE? AND 



o.S -PRINT Vl THE .COMPUTER ■ WILL. PR I NT* PROBLEMS ' Oft* .O'UE-St.IOf 

66 '.PR!.HT 0 ' "WILL 

67 PRINT "CHANGES' 

c-S PRINT" "ANSWER .. _ .„ . , , 

>PRINT '."LEM AGAIN. IF YOU ANSWER' INCORRECTLY A % ' SECOND TIME'. THE BQ#PWT€f4- WILL " 
70* PRINT "PRINT THE' CORRECT: ANSWER AND: WILL PROCEED TO THE^NEXT ; PROBLEM • ' OF K • \ ' 
71: PRINT, "COURSE IF 'YOUR FIRST ANSWER' IS-' GPFfrRECT JTHEN* TblE ' COMPUTER WILL AUTO- * 
PRINT "MATICALLY PROCEED TO THE NEXT PROBLEM V" M^RINT .'•■' • \ ' < " ••'»• 
PRINT ■*"*5k**IN .CASE OF "AN INCORRECT -ANSWER' WE SUGGEST-. -THAT TOU CHECK<- YOUR " 
PRINT -"CALCULATIONS FOR MISTAKES- .IN ' YOUR OPERATIONS. ALSO .CHECK- THAT THE." - 
PRINT. "NUMBERS YOU HAVE ARE THE SAME" AS Tl40SjE .GIVEN BY THE COMPUTER, " y , . 
-PRINTS PR I NT ',.' ' .'•- -.•;"•'•.'' v. '•-;'' ' '! ' . 3. > . 

'*****'l.T-. IS BELIEVED THAT THESE EXERCISES' WILL HELP* TO IMPROVE YOUR " 
".SKILLS AND ALSO IMPROVE YOUR GRADES » ' REMEMBER THAT ' THESE ARE -PRACTICE " 
"SESSIONS -"'AND' ARE NOT EXAMS? THEREFORE •>. YOU WILi* NOT ..RECEIVE" ANY" .-• 



72 
73 
74 
73 
73 
33 
33 

a? 

83 
39 

95' 

96 

97 
93 
99 
100 
lib: 
120 

121 
■! •:)'•>. 

•'23 
123 

*;:'2« 

131 

132 

1-3 4 



PRINT 
PRINT 
PRINT 
PRINT 
..PRINT 
PRINT 
PR 'INS" 
PRINT 
PRINT 
PRINT 



" GRADE w THEY - WILL 
'TO IMPROVE THEM. 



TELL YOU WHAT, YOUR 
1 \ PRINT\PRINT " 



WEAK ''AREAS ARE AND WILL -HELP YOU 



if 



i.u inrnuvii intni- ini-.i-Ri \ll\J.INI .. . ,f -y 

•'*****YOU WILL : MOT BE ALLOWED Til USE CALCULAT/(3RS DURING THESE PRAC'f lO^T ' 
"SESSIONS . PAPER • WILL BE. .PROViflED - FOR- YOU T07D0 ALL , ^ECjiaSARY CALGU-- ">.' 
™— i * a * » I - — IN k --THE '-END ' " "■ 1 '- 



LLjBED 

" LA T IONS . THIS PAPERCS) SHOULD 'BE HANDED 
"SO . THAT YOUR. INSTRUCTOR CAN .'CHECK ON YOUR PROGRESS 
! MAKE POSSIBLE. SUGGESTIONS AS [0 THE NEXT STEPS YOU 



OF THE SESSION 
OR IMPROVEMENT. .AND 
SHOULD FOLLOW. " ' 

P R I N T \ P R I H T VP R J N T \ P R I N T 

sleep 33 ' - <v '•'.. ':' • :'./•■'"./-. : • **. :••:"" '''- 

PRINT "HE'RE ARE SOME HELPFUL , HINTS? THAT WILL ENABLE YOU TO OPERATE THE ",, 
PRINT "COMPUTER WITH , A MINIMUM OF ' DIFFICULTY . "\pRTN '^XPRINT . >.'•; 
PRINT "1--**D0 NOT TYPE .IN ANY INFORMATION THAT- THE COMPUTER DOESN ' T ASK FOR 
P!JINT\PRINT '-•'•.'.-' ":.'; 
PRINT '' 2-~>:<:KWHEN TYp ING THE- .TNFORMAT KIN"- REQUESTED BY THE COMPUTER / DO . IT " - : 
-PRINT " SLOWLY .' IF- YOU DO NOT KNOW - HOW TO TYPE y JUST • PRESS LIGHTLY 'ON THE" . 
PRINT "• KEY < S ) THAT - YOU WANT? -ONE BY ONE . " \PR.I NTXPRIN'f ' '• : * - . 

. P R I NT ••'.". 3-r * :k AFTER • ' YOU TYPE IN THE INFORMATION REQUESTED OR YOUR .^ANSWERS TO." 
PP.im "THE PROBLEMS ? -ALWAYS PRESS THE <RET URN> KEY "THIS WAY THE COMPUTER " " 
PRINT "KNOWS TTIA-X Y.OU'.i-IAVE FINISHED-. ANSWERING. "VpRlNTNPRINT.: . ' • ' ' ; '..' . 
P RI NT' " 4 A L. WAYS ROUND. OFF YOUR. ANSWERS TO -THE SECOND DECIMAL ..( EXCEPT IF" 
133 PRINT ,-'YOU ARE PRACTICING, WITH INTEGERS? .WHERE .NO'.'DECIMALS ARE IRE OU.IRED ,) : , '* • 



•'■?-> 
133 
13.7 



PP. I NT'S PR INT 
PRINT '"i*'#%** 



133 PRINT. I'ABCTS.) 
139" PRINT TAB (18 J 



1 14 
1T3 
143' 

i'py 

139 
131 



PRINT 
■PR E-NT ■ 
PR^NT 
PRINT 

"PRINT: 



13:,.453a- 
12^.002. 
'J.i.Ou.01 ' 

-' ' -H 



: example: "\print 
* if your answer is* 
" if your- answer is 
t'a b ( .1 8 ) ■ ." i f y oju r am s w e r i s 

PRINT' . " ,' . '. 

"THE FALLOWING TOPICS ARE"" READY -FOR 
TAB T37>. "TOPICS" . •' . ' .';.- 
tab<37> ■'vnztt*: "' - •-.-.-'". ■ . ' - 
PRINTRPRINT' --'"-.'■ - ' '-'"-' y ' ' .' • '•'■ 
PRINT TABIC > " 1- . INTEGERS y TAB? 40 ) " 7- 
RRIN'T 



WE ; N 
THEN 



TYPE 
TYPE 
TYPE 



,12., 01 
QLOQ 



"\PRINt. 
" \PRINT 
•\ PR INT ■ 



YOUR; USE 



'NPRI NTXPRI NT 

'''-.■■-' '^ K ^ 



V3 



c .METRIC SYSTEM- i I " XPR INT 
TAB (0) "2~ DECIMALS AB ( 40 > " S~ STO I CHI 0 MET RY 11 ; .pp!lNT 
TAB (Or) "3- 'PROPORTIONS 'l DECXMALSJ?£AB < 40 ) 3 '9-- OAS LAWS 



■jRRINT; 



* 



i53 
1-54 
135 
160 
1,51 
162 
165 
1-70 



PRINT 
PRINT 
PRINT 
PRI-NT 
V'RIifF 
PRINT 
INPUT 
'IF H~l 
IN "CHIOS' 
175 IF N*6 



TABCO) "4- .-WORD- PRQ'BL'EM^?TAB 1 C40) " i Or SOLUTIONS I " \PRINT T . - ■' 

TAB CO U5-~ BALANCING 'EQUATIONS "J TABC40 ) "11- SOLUTIONS' II "\PRfNX. \ 
TAB (0) \6~ NETRIC JjYSTEM I " P TAB'( 40 ) -1-2- OAS LAWS II ".\Pf?INT\PRINTNPRINT > ' • 
" CHOOSE;- THE PRACTICE SESSION' THAT YOU. WANT BY*. TYPING THE - TOPIC, NUMBER'! 
" AFTER THE- QUESTION MARK ( ? ) ^<:{c>:f >!< :i<::K :K :K;:<--k:{<>!< * :H>K>ic^;{<^1{c:K*:!f*^Hf ^^JK-K**^*^ " ' - .-' 

.. • . « -, . ■: ' • ' t ' •• 

"WHICH TOPIC- NUPfSER WOULD YOU LIKE- 1 " 5 N 

.THEM. CHAIiV"CHE00a[ ELSE IF N~2 THEM CH/YfN ".CME&OS " ELSE IF N»3 THEN (J 1-1 A 
ELSE IF- N-~4 THEN .CHAIN "CHESQS" ELSE IF. N»5 THEN CHAIN " CHE608 " • . 
THEN CHAIN " CHE308 ELSE IF N;" : *> THEN CH A I N " 01-1.1^408 ". ELSE I F- N"=8. fHEflf OH 



A I r ! " C M E 70 8 " E LS E ' I F. N = 9 T H E N 
130 _ IF N « 1 1 . T l-l E N C H A I M " C HE 0 1 

200 'end . •: ' . 



HA IN " CI-IESOf 



E 8 OS.: J- L S E * 1 F N ~ 1 0 T H EM - 1 H AIM? C H E 9 0 8 " 
ELSE. ':IF-M- fir THEN CHAIN 'XHE02S ""*""'. . . ' ' .' . 



- y 



A ■ 



a? 1 



. ♦ ■ * ■ 



12 



v 



. '• ■ - ' V.'f- ' !' " . '■'■■:]'■:,'■".}. - ■ y\ •"' '" . ■ ■ ■. ". • :■ ;•" 

CHEQ08. ,t.0.fbi..A : - •' ■IB--Afv-7? . .' V • * ' VX3-. : 3 .*V " . ;i . ,b ■ . .= ' ; : ' : ' ■■ ' ( 

V REM > THIS 'IS A PR PGR AM' USEB "f (.') PRACTICE V A'E I 0 U S '. M ATT! E MAT I C A L OPERATIONS WITH I 
NTERGERS . ' T 3.3';. . < 'X. > '.'XX". : " -' •'- • 

2 -!V TH.IS PROGRAM,. /HAS/ DEVELOPED BY- Y'iR ♦ . JULIO ' GALLAE'IiiO' V- OF HO'STOS COMMUNITY COLLEG 
Ej* PHYSICAL' '.SCJJSNCe/DEPT , '.. AND WAS SUBS ID I ZED' 'BY A' . GRANT FROM THE NATIONAL SCIFNC 
I? FOUNDATION, ..«Vv-, . , ; v , . ' ' .' . , ' ' . > '--'.. 

4- d:C'm A<i5) ? Bei5) .' x ■ ' * ;. • ■ . .-' : x,\,-- : 

5 INPUT "CODE. # " 5 N?'".;':' • ' - ■" . ■ - • V"' : ': ' 

•6.I.F-N.?": w'-l THEN. 50 • . . * . ..' ' . ; '■• 3. '-'•*''- \ :. 

9 T'rint\pr!.j,jj • .;•>• ..%•./ '! ' , •-' :'-., : * ., 

10 input '. " after the quest ion -haeiv' < t'u -type your uatq,e ." " ? a 1$ '■ . • '• . .. ' ' ' ' 
i:t fvRi.NT- •*■ , ". V- ' "•;•■;:>.•.' XX - .. ••••• 

1*2 INPUT * AFTER THE QUEST ION >AM< TYPE YOUR SOCIAL ■ SECURITY. NUMBER* "SAX'S'- ' 

'13 /PRINT ' '..'-. * ' . -V '. ' • .;YV.>- '. .-••■.,' •". y . ',' ..'"", 

14- PRf NT/:-.* "YOUR HAti&^r •« . ,ANB l ItoUR'. <k)C I AL -SECURITY NUMBER- IS.» ''' •"*'/ 

i3 print- ' . < ••■ iJsr.^v, x xx X' - X . =x.-. 

IS;;. PRINT 'A2i. "« .ARE THE* CORRECT?, T3YPE ^ ^i^ES. QR ' N ' FOR NO <• ' 
IS ;iNPUT A3ii\PR.l*IT. , rf • • : : , . ; ' . ' , - , 

1 ^ IF; AiST* . " Y " THEN ..5Q ' ' , "». ' ■« ' ' ■ ' . -v... ' ' • ' ':: • 

2.0 IF'; A SI-' '" il " * THEN 10 ELBE PRINT " USE- 'Y:' OR' ' N ' ONLY ! i i i i " , !:\F>RI.NT •' • • 

'21 -SO TO 1.0 •. ' ' ' ; .. ■ : , ■ . ■ ■ ( ■ - v . . 

SO FOR Z « I TO •■'12 "' ? - ■ . ■ •■; . 

•32 IF Y > Z l. THEM 3000 . '" ' • ' .'. ' > " :*■•.. 

SS RANDOMIZE . '. . ' • . . ■ . ;. 

5 6 . R ;l. ™ R N.D < ZO T 1 \ R 2. R N D < Z ) + 1 \R-3 -iR N D < Z ) •{• J. \ F\ 4 R N D < Z ) T 1 ' , 

37. X^L».X.^IT.<•R.^«125.)^X2^I,hfF< R2*'2215> \X3===IM't.< R3X;L7S > \X4^SNT(R4-!!c32S> • '•' 

S3 XJ3-«Xi¥X2\X6=^ i^2-+Xr3\X7a»X i+X2f X3f;t4 \ X8~:X 1 * X2\ X?="X 1 *)<2;<cX3 ■ ' .' '■•••«":,' »■' 

;3? .Y'i =Xl. > !<X2:;<X3*X4\Y2--X3*X6 . ' ' r . ■ • ..'' _ ,'.'''• 

£0 M?":.vO\PRIMTXPRTMT ' " : '.'.''.'' 

^1.; M9X-M9%-H%XFQR H?> 10% .TO 2S";\IF c19%>2X THEN 63 ELSE F'RitNT . TAB < H% >' ' :!< " \NFXT I I 
% : '' ■ , ' "• 

S2: PRINT TAB(25>„ ":!<"\IF M9%--2 THEN 35 ELSE PRI NT TAB ( 1 07.-.> : 5 TAB \ 14% ) ROB! FN" ? 

Xi'-'RINT. Z5XPRINT TAB.(26%) " :K " \ (3 0 T (!) 3 1 '• • ' ' . ■ "■' r **' ' • y • 
■sS Cl.-'O ''..-, ■ '.';■■ ■ - ' • '. / . 

r"i oxFpitjr •' .*.-{. ■ "' . . ' '• . ' . X 

70 PRINT ''• .' •'■'';*' ' ..*:.'■'. "' 

1.6 IF .'Z:~i THEi' 1 ' 'PRINT. XI. " f "X2 " ™ " XA.'M ) ~X 1 1X2 . . 
103 IF Z 2 f HE-i PRINT X.l * i " X2 " •»• "X3'" - " \A < 2 ) -XI TX2+X3 - 

lib . 13- Z • ::; . 3 rHEN PRINT XS' -■ " X.l. "£.", \A< 3) -=X5-X1 ■ ' ." X 

ll^Xi'F 7: " : . 4 -THEN PRINT X3 "••-" Xl " - " \A< )) =X6-X 1 '•• - ' 

'. 3,0 IF Z'-' ; '3 THEN PRINT-X5 "-f "-X3 "-•' X 1 " X2 ":••?"; XA(5Y"-X5 TXcr -X.:l.--X2 . - ; V 

•'••'23 TF Z THEN PRINT XO." : f 11 X5 " ••••" Xo> 'XA <6!> :;=X8 {-X'3"X<6 • " • ■ 

.30 ' IF- -7 " li-iEN PRINT XI." X " X2." ~ " X A ( ? > ~X1 *X2 • ' ; y . " 

'■33 3 ; Z'. ^v.I'iXE.j! ..PRIET ..X.l "X"X2':X "X3 AA<S) -XI TX'2*X3 



•?■-- 



.:: ; .C^.-.'l.:- 



!:•••: ^ : mo 



■4 ;v\ 



.8 ■ :!./' 



\r r. !. ;•: ' •• ;- i 

'r ; 




14 



V 



ERIC 



■X 



• • V. . . . ,•• • .-• - - ■ ■ ■ -.. ; • > . . . . ' • " ■ 

• " . • ■ ■ i .-, ' -■ 1 ■ . ■ ■ : xr.--- ' ■ . a. . , '•• ■ ' 

SHElOa -10-: 08 : .'18-APT—77 •-' . : 1. X.A - ' '' ' ' ■ '• ' ' A A: - '■ 

1 Ran. THIS IS A... PRACTICE' SESSION IN DECIMALS; F ., .... -X ' : ■ ■** ' '. AX .,' '. 

2 i THIS- PROGRAi-t 'WAS- DEVELOPED '.BY .'.DR.. . 'JUL 10, 'GALL ARDU . ' OF HOST OS COMMON!!?- 001,1*01";. ' 
AND WAS SUBSIDIZED BY A GRANT FROrl THE "NAT I0MAL SCIENCE FOUNDATION,,.. ,„',.,";,,. 

3 DIN A(20) »B(20f>. •' *' ^ >'■ ■ '•' A ' '" '' ' . •'• '*• '." 
3 INPUT " CODE # 'yiX : vPRINTVPRfNf\PRINT OP X-" ' V ' ■ pi ' ' 

7 .'IF N1A " I ' THEN 49 . '."-'- . > "! A . • * • V H " ■ -. •■•' 

? PRINT : .. : ' ,' . ..; ■,. A "'. . . '• • ' A 

10 INPUT;" -AFTER THE QUESTION '. HARK ( ? ) r LYPE YOUR 'NAME - " ? A! * • - .f&-'' : :. ■ 

print ' ■ ,.„ : . " , ., • . • . . ap. ■ . * : ..' • p. 

]: >">. Jbi RUT V /." AFTER THE QUES TI ON MARK .(?}?, TYPE YOUR. SOCIAL -SECURI f Y Ml \m\~k *- " J ATA ' .*' 

13 '-PRINT- -'V P. ' ■ : "' "■ * •* ' "• •* "•' ' ' 

10 PRINT" !t YOUR NttME~lS». 'TAl'Lo ... » > AND AXANA-SOGIAL BEOYx .PRINT '• 

11 PR li'LI -, " PIS s> "A2$ "A ARE T.H.EY CORRECT?. TYPE: 'Y '. FOR ' YFS 'AN' - FOR AH'L 11 s ' ' 

23.- iilP'.U ' A3?> ' ' . . , . T - '. ■ ' ■' '- '. • 

.^t.;i:f A3$:="'N-- thetI 9 ; - v '•• ,. ' 'Z \ • •. . . 

?.6 y IF A3;HO>Y" T l-l EM ( ,P R I M T S p R I N T TYPE 'Y; OR - 'N' -ONLY 1 ' \PR]'NT\'O0 TO ?Q ' ' : ^ ' - 

27 PRINT • •' '.I- .. , , ■ • 

■)f for z. « :t to ,13 - .• • ... .-' x • .> " •• •.• - 

;•)•. -RANDOMIZE ' ' P . ■ . p ', '> '• '.' ;1 .' 

R .!. ™RMD < 2 ) + 1 S «R.S~RMD < 0 +:l \R.3 ::!: RND ( I ) +:L\R4" ;: RND < 0 ) fl . ( - .. 

XI ~<JNTCR 1*1233) )/ 1.0XX2-T INT(R2;j<BSB) )/;i:0' ' >•' - .. ' - . 



5 3 X 3 v I N T • R 3*125) '). / 1 0 0 \ X 4 « < I N T O R 4 * 2 25 ) ) / 10 0 
T> X 5 .Li ! T.( R 1 * 1, 7 S )'• ) / 1 0 0 .0 X X 6 ' .: I M T ( ! : ': 2 * <? 55) ) /" .1. 000 
'55. -X7-X INT ( R3*7777 ) > /.tOOOOOOXXS ^ ( IN T ( R4*B345 ) ) X : 



100000 • • . • 

!vo 'Y:iX^:a--hN2\Y2"Xl+X2 + X3XY3^X3*X4XY4^X4*X; :: ;. ' ' ■ /— 

>?" v 5 X;?-i:X S : . . -. '■'■■./. ' 

"0 ::0\PR INlXPPlHT 0 . • . • .'■ , r . ., , 

••H»?.:-«M9%+1%\F0R . H^.= 1SZ • TO 30XXIF M ? % > 2 'THEN 75^ ELSE- PRINT T A B ( 11% •)'.." -it •' ? \ N EX T H% 

: '3 - FRIN f TAB.- s.SIXV "*".XIF N?X-2%" THEN 75 ELSE PRINT TAB ( 1 '52 ) " :!< " 5 TAB < :l ; > ! 'X ) "PROBIFM- 
1 -APR I NT Z?\PPIHT TAB 3 i. X ) " X. " X GOT n 71 • -a • ^ ' 

? «e print; »■ a ; . ^'.i . ' * • ." • ' • ■ .• 

•3.. PR I NT \ PR INT •• ■ ' - •. .... • ' . "■'''•■ 

' C L--/-0. . .. ' Xf ' -■ • - A • ■ 

LOO IF :> 1 THEN PRINT XI ^ f " X2 " " \ % A ( 1 ) !~Y..l X ' ' ' 

• 0 ;. IF, Zr '-■■2 i'l-i'EN PRINT X 1 ". f-."X2 " X- "X'3 " ■■- " XA < 2 )'="=Y2 ' . L ■ ■ 

I. ')2- IF Z "4 THEN'' PRINT . XI " •{• 1 X3 ° + " X4 " i "X5 " :; » " \ A < 4"') ~X l»fX3-f X4-fX5 ; ' •■ '>• .. 

:. i'.i-AlF-..':- AL-JHEN' PPlN'J XI " f" X3" ^"X2 "»=••" \A'(3>"»=V2 , • . - ; ■-' •■ 

■!:'!'"' A3 -THEN P.RIi.l't' Y;l. .«.- " XI ".-." XA -: 5 ) ~Y:t-Xl X -'•'••' - 

:/.)'5 IF A A THEN PR I NT .-.X 1. (XC7 f.XS " ■■- " X7 " " XA ( 6 ) :: X< J. +X7 fXB--X7 

'. OA'. IF ZA'X THEN PRINT • Y2 " " X3 " <= " XA < 7 ) -Y2-X3 .'.''•. 
.O-MF AA YUEN PR'nTr .X7=FXa-'f X3 " + " X2 ,? ' - ,r X3 " X7 " " X-A' 1 ! S ) ;=:.X0-{"X2 • 

.03 -IF THEM'-fRINY Xl":<."X'2»«"\A<9)=Xinc'X3 ' '. " . ' • 

.OACF. 10 THEN -PRINT X 1 " X " X2." :: =." XA (- 1 Q ) 1 *X2 . A- 

,-'i:b IF Z.-.-ll THEN PRINT >X1"X " X3 " X "X4 "~ " \A( 1JL ) :"X1*X3*X-1 - 

IF Z : ""12 " fHEN PRINT C3 " / '.' X3 " ~r : " X;'i ( 1.2 ' X3 ••' • 

.12 IFAA13 I ' i N P R I N f X { ? : ' .' ' " X 8 " '' \ A ( i 3 ) X'7^< X & ' " • 
-13 IF ; ri-IEN PRINT '.' 1 " •' "' X4 * ~ " XA ( 14 ) Y.4/X4 

.!.-> IF Z--13- THEN' PRINT- Y'4 '' / "X5 " " XA (15) -» Y<} -'X5 - - •'•'. '•■ - A 

13 'PRINT - ' - ; . ■ X . .' '■ • ; . ' 

IF T ? !.' THEN' 123, . > " ' ..• '• 
. ."'. ..• ?! VX KNI^UT ' " 'YOUR AN3UER [ ;1 -- •• •_ >' • .; g ( 7 / . '', ■' .< '' A- ?.• 

op's.' a •;.::) ; -^:;.' ;:: ••>.. .<>i- rHi-i-ix.joo else print* "correct !! ! "vrrini-' .-...'■ 
. -.xxix r x ■ .- t '. 
. .A T'F • "' aen '- 'xxx • ' 

' '"■ ' -P ! NX: i'RINTX if .01 1 THEN PRINT " YOU A R E l : ; ! C Q P '>< E G i" :» 1" R V AGh.I N , ■ " ELSE PRINT 
,'iRE I.-JRONG AO A I !•!'-• T!-iE GORREG y XnX-UJPp FX - '•• • • ' 

X» P' .V 1 

ERIC , 



401 'IF ClW THEN 1 2-0 

402 PRINT -USING '■■*#*#*.#* '*' AC-Z) \GOTO 125 . ' - ■■ ■ ■ ■•' 

443 • II-" N1%=?1 THEM 4.9.0 '• -.- ' '. 

450 PRINT "' THE STUDENT "?A':Lt> " ? HAS COMPLETED -THIS SESSION ,." \PRINT • 
432 PRINT Al$ " i HAS ANSWERED " S " QUESTIONS CORRECTLY ♦.■ •" \PRINT- 
434: PRINT " HERE ARE THE CORRECT ANSWERS \AND ■ A.l % . " ' $ ANSWERS ♦ " . 
4*0 PRINT '^AB < 3 ) " PROBLEM " ? TAB ( I 3 ) * CORRECT ANSWER " 5 TAB <• 35 >" STUDENT ANSWER" • • 
491 ■ PRINT TAB(3> "**** ***" * TAB ( 15 >• '^iok************ " ?.TAB '.< 35)--" ***:K*****5K5!{*)!c» "\PRI.NT; 
500- FOR: 2 ~ T . TO 13 ..' '• 0 ' 

'c$M, IF Z<10 THEN PRINT TAB<5) ' ' Z 5 ELSE PRINT TAB < 4 ) "2 J '•. ... " , 

502"' PRINT USING ". ##«#,« "AC Z ) 5 ■•• . • '• > V. 

303 PRINT TAB(38) ' / B(Z)\NEXT Z .. ; ' '" ■' / ■ - y> ' 1 

2000 END /' • . . ' V. ' .-'»■ ' ; ' :-/ . 




-3 



tHEZOS. . 10 1 03 ' . . 1 9-Ap ,--77 

.1. REM - THIS PROGRfrtH IS.' USED Til PRACTICE HOW TO SOLU^ROBdRT I OWS AND HOW-TO-'.' SQL 0 Z 
E SIMPLE : PERCENT. F : 'R0.BLEH3% .. ': j . : ''''•■••P- P Z- PR P'':'.' ' 

2: ! THIS PROGRAM WAS DEVELOPED BY DR. •JULIO- GALLARDOV : %F -..NOStOS C OH N l.J N I-TY '•' , 0 0 L.L. EG E 
v AMD- WAS SUBSIDIZED BY. .A- GRANT FROM THE 'NATIONAL SCXE'nCE F OUNDAT I GM , ' : 
4 PRINT\PRINT . .. ./ '. . ; •. . '•--.,■ . P-j . ' ••^• : .--^^ ; ,;;^'iy^. X 

s d.im a< 20) ? a (20') , ': : <■ . * -p-. -.' ■ ... .-. [■ v "''p'; : v-;/ .' : v.-.vT 

::'> INPUT "CODE ..'!•• "i N1ZXIE M 1 1'pPfPT'HEN 50" P 7f' ' X '.'" ' " ' 'PyX'- "P- • '■' 

? R [NTXPRINTXf'RIj'Nf - '•' \-P. "P - -' : . • X * '''"'-'P ;, : P P' '. ' ' 

1 0" INPUT " ' AFTER THE .&UB6I.TQN MARK ; ( ?>V TYRE YOUR NAME/- - ? Al'* . '" "v..;- '- 
1 X : PRINT : ■■ ■ • ' . • 

12 INPUT; AFTER THE QUESTION MA N RK . V? ) TYRE YOUR SOCIAL -SECURITY MUMBER* 1 " 5 A2$ 

i3. -print'' - . ' .- ' .. ••' . - . ..••' • ..■'•.. -'..•'- ,;■;'••'•: 

14 R'RI-HT - YOUR 'NAME' IS, ■" ••Alt S AND YOUR SOCIAL SECURITY NUMBER -I S> ' " N P R *C N T 
:!,.> PRINT A 2.* ARE^EY CORRECT?' TYPE ? 'Y ' ' FOR YI?S OR P:P' FOR NO,""? X • "P 

17 INPUT ( A3-l; \ PR I NT*?' •***'' '• ' '" ',P • . -P* ' ■ -X P'; T- ; X ' - 

., ... . .; ...... .5:' < ' ••: ' -" «v. ■ ■ 



IS .IF A3$ = '."-Y'r.THEN.- 5.0 JEPsTf .IF PYPP-'P-i" '" : :l.O : ELSlf ;'PRINT " V ,0R -'hi' ONI Y 
» ! i : "\PR'INT\ f - " > OiO ' . . w . '•"'.. . . , ■ P 

!•:••>• for z ™ j. : ' .• ••• . % • - • • • • /• a •'•'• 

.:> 2 RANDOM I ?N: ; ■ : .. ' . ■ -j . ■. . . • 

'.-j".T R1. RNO < 'Zj f .1. \R2- : RND. C 0 ) f I \R3~RND CO ).+ 1 \R*4 :: "RND (0 ) f 1 ' ■ " •: .'• 

Z-i :<1 -?.( INT<-450:5cRl ) ) /:LOOVXg;:= ( IHT-<750'^2 ) ) /100\X3*(lkT<'54S*R3) )/iQ"0- " . 

513 ]P-V~..-: INT < 560:!'.R4 ) ) /I0.0NX5 < XI : XX 4 ) /'< X2-*X3 ) ' ••' ■" P -P . 

'56" K6 ~ ^INT : (>250:j!Ri.) )P :l. OOPXP:- ( INT < 1350*R2 ) ) /100VX8* (INT ( 1450*R3 ) ) /1CKP PRINT- 

2:- !i°z-a\pp i:nt- \prin r . •- * 

'.PS 01 ~0. :- - . . t • •• . P- 

-P ? N?;-^.;M2%-fipECRP--!"::.::20%TG RTo^MF lv?Z>2Z THEM 65 ELSE PRINT TAB (HZ) "*'P\NEXT HZ. 
a*. PR :: NT -f : VB (3?% ) V*.".\i!- M^Z-2 THEN . 63 ELSE PRINT TAB (Pi()Z) » :!< " ;) TAB ( 24% ) ' »J"'RQBI. EM " 
-PPN-'PNT ZS-\PP.IN.T TAB (37-> . " :K " \ GOTO 5B' ■ ' ' '' ' ' " • 

:>Z P:-P.NT vPR P- f . .,. .'. • < ' <t _P ' P P /;■ 

;,00 IP ' Z- fHEN' PRINT "X P'X2"P'P' X2" P"XT \.A ( 1 ) ■■■■ ('X2*X3°) /X4 

l*Z IF\ '7. , -2 THEN -PRINT Xl' tt - '? Xt J'X2U "-X3 ■\f lf ^.=-/X1«^/X?^' ; : 

I.Z3 I-P.Z P. i'HEN, PR I NT '. X J. " " X2 " ♦ i X > " ;<3 \APZ)PX j^X3/X2' ," '.• -■ .. - ' 

••••-• P ; Z-- - 4 THEN PRINT XI " * " Y2-P; PPPP!P X " " \A < 4 > iX2*X3^Xi ' - . .. 

■■ 7: ::: .5' then print p.-: -': vxi-.j': "xa^t/Xo' \a'T5>--x'i*X2/x-3 

.L'X.:. P v '■ \ r-:R:-J PR J ••ff-'-Xl " ? " X2 '' J I' XP"-X3 \A < 6 ( X :l. :KX3 ) /X2 * ' ' ' 

: " 7 -then .print "x '.'->:■}. l "v-."x:r , / ,, x3 \a(7)-T.x.l-:<X2)Zx3 ■ 

:'-P.P Pv-PyHE-i PRINT . XI"V.X - ' "X2P'"'Xo X -i ( o ) v I. XXP >/X2 - 

.. ■'■ '• I ■•" ■ ' « THEN .PR I NT . X ■ " / " X2'- "" -X / ":X3 X*A ( : > ? - • X I XX 2 );/X2 . r * " - • . 

P--f .•••..•>••'•'"• •"• : "'Er l PR': NT X::. '"/" '/.2 '*•?••" X3 ' '■'.." XA ( .10 ).^X2YX3XXI ' "• : 

Pi "...<-•/:■ VX •"_ .Pi P'-iE'N P-fy X3 • 'P.IS : X<7 " Z.eF WHAT HUHBEJT? V \h Zl -\XS XIOO/XX ■ ".. . 

r-'PP'- P'^'. .p . '•'•'-: en pR;:ni xp. pi:s i:-it :z ,<x:;. > *% op !x-;xr ; :, zxbep: xa.< •.pp^x.i.'xioox pi;':-.!" 

.''■••• .-'' : '. '•"•:•'•• ' P--' CHEN PR LV.'T- .XT, iS yp,-i f ' PERC:-:.:- i" 7f \ (-7 • XA < 13' "ao-MCvt/' . >( . ' ' 

■■' ''-'. ;: :: '' '"H';N RR\'N i x 'X-.-s'" " 13 NXN s" PERCENT OP XT P XPpt— X;P--. 1-P.X - NP " 

tt 2 •.'•';.; -- ;';-•": x--'." xphx . 'Is "PPT':; cp ' x :-' " t 1 p..--, p; ) ---i-.o. •;-::.< 7 pxt'op ' 



« 



":!■ '.r.'P.:}..x :' X CORRECT 



1 1 1 



ERjfc ,. ■ , '• ,7:\-.^/-^ 



:;..OHPLETEi:i THIS -SESSION*' ^Rii-rr .' ':' , V • ' ■ 

.' v ;j:--iS : AiJSUIlKED.. " 3 " . PROBLEMS.- wtiflRECTLY ■>'.' " \PR lift ' .'• 

$s£&$im .J -W£ Th'a CORSECT ANDERS A MB; :' Al$ " ;'S : ANSWERS J " ; 

Pi*! L'N'r- .••.'•/■ • *' •».'*' '•■ ■ - .' • ■ '. » ' • '. ; •• .-■ .•«'."■'.' 

:co:i\fi:< pi- t^bi 3v:'::.: :, Hi.-BL.SM v ?.r.VB ; fo-> ;? correct answer^ :\t ab (.4.0 >. ,f student 'WNstjEi'V' 
. .m.;,-; ; ; : ;,'t; ? :?v«b ;.;;p " rr-A3 ( M : xk-^ ;k >^ ;i< i " j^Bi^oj'^****'**^.****'* 5 ' 1 

T \-:*'v.- ?fj >r KINK, * ;y .- " 

. .;• 'LA/A.;;; <•'. 10' ■ fHfctr!. :-R.i.i.!l' T.ABA 5 )'•'■ ';2?ELSE PRINT TAB ( 4) ' 'Z A I <' ' ; .'' A."/. 

^y:y--' \":Rr,-rT \hi';4Q •'/.'•■ . il# !!#>iMK' ; A'lZ).?,-, .' • ' '" • ■ .• : ' - "■ . .:. ' ■ '. •' 
. PR 3; i". ' TAB •'. )'' ' Z; < Z) \i -!EXT AZ ' ' - : . A. 



./■[ 



■ \. 



\ . 



er|c 
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**#**:**# :* « ** ** 3-Y * # * * ;;<:;;< * ;!< # *' « ;;< * * *< ** * * * * * * * * « ft *"* * * :ic < "' X P R I N T \ PR 
AFT Eg THE./GGEST-IQN MARK (.•*/:• TYPE; Y'OUR : NAtfE3.> ".5 A1S 



CHE 308 \Q9 340 . .' / < . ..i8-AP'R-77 ' • . . . . • '•' : / 
1 REN 2THIS .'.TXpA ..'PRACTICE -SESSION IN THE MET R ICO "SYSTEM . >:4> v »»>>'^' - 
2.2- T.i fl S \ P R 00 RA M HAS- BEEN DEVELOPED BY DR , JUL I G- GAEL ARDO POP HOSTOS COM 
HUNITY • C-q^LEGJ?,-. AND WAS. 'SUBSIDIZED '.BY A GPaNT FROM THE NAT ','•(;) NA I. SCIENCE 
FOUNIJATldN>>>>%>>>>>>>>>>>> >>>>>>>>>>>>>>>>>> , r. > . V. V V " •; ; . 

>S DInTH20>'?B<20) ; 

6 'INPi-Fr C ODE-' 4 " «':-NI%\PK-IMT\PR«IMT\PRTWT. 

7..3IF -M'X%-.« M THEM 50 - . ' . • .3 >'p '• ' 1 ■ 

3 fvRINTXPF I-MT ' " •'■ YOG MUST GIGE YOUR ANSWERS .TO THREE DECIMAL I- FACES * " 4 
.9 PRINT " 
INT * 

:I0 INPUT ■' 

•.:.-4,.PRI-:i.T\ I.TNPUT "AFTER THE QUESTION M£R|< - <?) , TYPE YOUR- SQCT.AI SECURITY' 
NUMBER , : , j!A2:!i'- . . . - • 5 \; ". .3- ..>-- " 

13 PRINT / . " 3 \ ' • ' ' .-" \ :' 

20 PRINT/" YQUR .NAME -IS? " J ; A1*V " V AND YOUR SOCIAL- SECURITY NUMBER- 'NPRT 

Mi; :. - 

SI.. PRINTjf'* "aS//.- "A2$' : " , ARE THEY CORRECT? TYPE TY ' FOR YES AND ' ' N '' FOR -NO 
'.. ; 

•22 TNPU/T -A3 XPR T NT 

23, IF p* a/ •' N " THE-N 10 ' - •• « : " - " ; ---;>' . ■ •' , " 'P/ "' 

26 XEF AS-liO'-Y 1 ' THEN FRINT " TYPE • Y ' OR ..'H' ONLY !* ! ! : P XPR-TNTXPOTO- 20- - 
50- RANDOMIZE '^r ' ' - - '-• Y ■ •. •- .••;""; =.*.. 

f>i'.FOf 2-:!. - TO 15 V . • ' • 5 . ' ' !.-P'- •• • V 

'52 R:!/-RM0<Z)T1.; •: 3 - , . ' , , : • • ; \" _"*' ^ . , ' 

S3' Xaf=: ^< TNT < 2SA-0.it^l> )Vi.00\'X2=;'( INT < :l. 34S*R 1 ') ) Zll'jO' '-. \ ' ■ . "* •-••Y'-'' :; ' /• 

*Yk-:=o THEN 52 .! ••''•' . . "- . . •, ■ ' 

S« ■/F':X2«0 THEN 52 ' ■ ■'. ' ' ">' ' . . .- ■ ■ .'•.'. 

'87 PRIMTXPRluT . ' •• 

SS /IF Z 0 THEN P.R I N T " ^ 



■i::-Xy:Sc*;icA ■ 



EI...SE^- PRINT 



PROBLEM 



/ 



^**5!<;{<*iK**i{< ; ' ELSE PR'IMT " 



IF Z<1.0- tmem -print v ■ 
too if \ i t'hen- pp;i:nV ' : » i-iow many /meters " c e n r x me t e r s ? ■■ " \ j?i .( :I % - x : :i: 

■ .100' ' ' ' * - ' " 



105; IP Z-2 THEN PRINT" I-IOW MANY /CENT I METERS ■ IN' f, fxl KtfjOH 



THE|] PRINT " HQl-J MAW MILL! METERS IN ^ XI ^ . iiETERS? /" \/v( 3 ) ■ :: X 1 
HOW MAWY KILOMETERS IN ,r X-J, ^ D E C I M E T EJ<S ? " \;A ; 4 ) 



PLO 
.1*0 IP 

•p:. poo 

"llp \ip z-:4. then pr i nt 

■■Xl ■ y -000 L, 

■20 IP Z^S THEN.. PRINT 11 "H.OLJ r^NY METERS IN " XI P 1 MI LLP!! METER ^ 
:<•."/.!. 000 

IF" 2-0 THEM PRINT , K-OW /MANY FT - IN " X:L IN, " VA ( 6 ) 1 / 1 ? 

I pO TF 2 THEN PRINT ' " HDU 'MANY MILES I N " X2 " FT > "? " \m ? ) ^X2/P2S0 • 

IPP IP ;Z" :: B > THEN PRINT . " HDli MANY INCHES IN P X:P 11 Mil. ES'^ "Aa ( p ) -X i ;{c5'^-?0 , 

I :0 IP Z-? THEN P-RINT 11 HCW MANY MI LI... ILI-TERS IN " XI !:./.'[ 7FR S 11 \ A ( 9 ) X 

l ;m.ooo .. - 
.l !5 ip z 1 0 then print 



C) Win ANY LBS P IN " X2 ." GRAMS? 



A< :LQ>'i;<2/454. 



■ M " V 



xi " . QUARys? 11 \A( ii )■:=;<■ :L/;l. - 



130 IF 'Z-'ll THEN PfP.lHT "/ j-iOy-^iMANY .. LITERS 1 

•.33 TF 3^12 THEN PRINT 11 HO.'-J MANY -CENT I METERS .1 N ' "' X-l'- f- T f-j!'- HPS - ;! " s A < I 2 > 

■::.72..-5 :- .■ . . ' .,; 3 ■ ' " 3 ^ : . ' .7 3 -. • 

L.yO- IF 1-13 THEf-F- PRINT:'" KOU MANY GALLONS IN " 'XI ' " ' k/|...OLT TFR'Sf - " \A ( ! :'V'- V 
•' XI :)-:3"))3T .•'•-.'•• . • * - 

i.,:i3.IF 3»V3 THEN F'P INT. 1 HOU iiANY KILOGRAMS IN " 32 /' . LPS -3 "P ^..Y-'pn 
23, 151 3 

i.."0 IF I •• i. 5 THEN PRINT "- HOW MANY MILL I METERS lil" //A " M [|. FS'>' " \ A I 5'. X 
;. O : 3'.m - 

iERJC N13-1' THEN .200.' 

i. i«W I NT V I iHP U T " Y 0 U R A H B !■! E R . - ~, •- - - ; - ~ ■- - - - - .... > / - .j B (2 >N P R £ N T 
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? 

j ■ 



I*-'" ABS<-A-«l)'TB<ZXy"->-" »bol' THEN 1000 ELSE PRIHT "CORRECT ! (\ 
.3.2 S^S-MXIF 2- 7.5 T-HEH. 4?9' ... • . - : ' ' . ■ f. . ' ' 

too NEXT. Z'.: - V '.-■". : \ " 7 ■ 7/ - 

99 :rF- thea» 514 ... .... , : . :/ ' ■• 

00 PRINT ? ..YOUR' SESSION ; HAS, ENDED, PLEASE CALL YOUR .-INSTRUCTOR..- ."IpRIN 



5bl ' INPUT KZ ; / 
5.^2 PRINT . 

303 PRINT ." ' ...THE. 'STUDENT "/ -AiS' . " * 'HAS- COMPLETED THIS SESSION, "XPRINT. 
504 PRINT A If- -HAS .ANSWERED ..".S ". QUESTIONS CORRECT' Lf «. " \PRINT , ; ■ j . . . 
30S PRINTXPRINTxPRINT ; " HERE. ARE. THE: CORRECT ANSWERS AN/D " A, l $ 11 'S; ANSWER 

XPRINT • 
1506- GOTO '§15. 

514 PR I NTNPRINTXPR I NTXPR1 NT\ PRI'NTN'PR INTXPR I NT XP-.R I NT\P# I N.TXPR I NT* 
3i 5- PRINT TAB 1 5 ).. ; " PROBLEi-f" ? TAD < IS ) . " CORRECT ANSWERS "fT AB ( 40 ) '" STUD EN'TJ'S .. 
•;MS>WER " .■. ...v. '". ' . ■ -y" ■ 7 
316 PRINT Jm< S-) " ;TAB( :i.C) rjjt******.****^*!^*-" 5¥AB( : nOJ "Hc**-*^***^*.**; 
^:K';XPRINT . • 7 ' • -.7. . ,, /. ' t 7 .:, , 
517 EOR Z«i TQ'l'S VI' FT Z<1 0 THEN PRINT .TAB ( 6 ) v '■ 2 i m„SETFll NT , TAB < 5 )" Z 1 

515 -PRINT . TAB.< 20)-'<^.Zi ? .'7 - 77' ■ ■'.'•••• :'; 7 / 
51--? PRINT -TAB( 42) y 'B(Z) .'■ 
•220 'N.EXTZ 



521 GOTO ,200.0 'ly ' 7 - '7 J'V. •' " s 7 7'- , 
looo ;C:LvCi-f T ' .' • . ■«•'••. '-77 ' 

10-01. -IF Cl-1 T;HEt-! "PRINT "■ ,YOU ARE ■ I N CORRECT :• TRf AGAIN,"'.' ELSE PRINT 

U - ARE,;. WRONG AGAIN , ; THE CORRECT" ANSWER IS 

1002 - IP Cl.~2 THEN ' PRINT USING ' 1 1. 1 II :! : ^ 1 * 4i- 
:L005 V IF C1---1. THEN 180: ELSE 200 v v "• 
2000 END '-' '77 ' . '•'■ ' ' , 7 y 



•-7/ 



<Z) 



,Y0 



Q HE 408 ,09J5(>' ■ /.? J.8--APR-77 
3, REM- /THIS IS- rV HQlvE DIFFICULT. PRACTICE . $E&SI ON I MPT HE METRIC -SYSTEM ,' 
6 ! TH^S- PROGRAM. WAS 'JJEVELCfPEIf- . BY, DR, JUL I 0 G'ALLARDG .' ApD MR, '.STEVEN DELS 
ADO 0F7 HO ST Of* COMMUNIT Y> COLLEGE <*■■ -AND' WAS SUBS I DI ZED BY A GRANT FROM -THE 
NATIONAL SCIENCE fdUNI^TION ♦**«********-•.''' .- X I X - . • 

u •. -iHpuf- " code A *Y ni^\I~'Rint\pr:l>4T\prii\'T ' • "•• 

i2^:!.'F/ 'M;t'% ~%' : <THeM -SO . '■'■*" *'.;-. . '< •; '. ' ,' > 

::.'3-'.I;MP-tJT- AFTER/ THE. QGEST^'M .'MAF^ ; (?) ? TYPE 'YOUR' MANE \ 

:PP. PRINTXINPUT • 7. AFTER... THE /• G.U EST 1 0 N - MARX ( ? ) »■ TYPE "-Y01JE SOCIAL SECURITY N 
UM'SE'R. >' ; - " fA2$\PRffMT . '■ ... ' .•'>.*.'•'••.•"•• ... ■ V "... ' . 

30 .PRINT VciURf NAME I S r - "9A1$». P> AND YOUR SOCIAL SECURITY NUMBER "VPPI 
NT ■' ,7 . ■ \ y .» " ; •'"' p ' - J ■ X,-, X " \ p ■ 

2TP : 1PINt. IS/.PA2* " ArRE THEY CORRECT? TYPE 'Y' liiTR-A'PS * OR" *'N ' FP'"' m 
>:7'' 5 • •• , ' / / -v^ • * «• P . r. ■ . : . . . 



2u-.. IIP; Aw>-,. /" Y .' . THEN -'PR I NT 1 -TYPE 'Y ' ,01-V 'N'-.O-NLY! ! ! •!' " \ PRINTAGOI 0 2'0 

so for 'z-~i f(y i6 • . ' • "- p '•: t . 

52. RANDOMIZE • ' • * : ' *' ! .P. : :' : ' ' ' , ' P 

sVx^ .. >•< ' 

5:4 -XZMllirk <:L5^TRNB;f.:L )Vl1)6.) )/i'0d\X4::StlN : T< (19*RNLVf:L )>icl6(» ) / 1. 00 . .* • '? 
55 ,X'5'- C INT C < 9PPNDT !. ) *1&00 > )/'i'000 



56 K6"--i li 
5? PPM NT/ 
60 PRIM.' 

6'lP PR IN/ 
65 SP:P 



<-Xi*X2#iO0 ) > /:l..60AX7'== \TNT ( X:! V ^X2/I0 , 9728 ) ) /iq6 : 

. ' ' V " % . . , . . . '. .' , ■ .. 

PROBLEM "Z; 
...'jtJKUt**** "\ PR I NT 



IQO IF/P-l THEN . PRINT ," 'A GAR MOO'ES WITH : A SPEED OF " ,X:I. '" kM/HR > EXPRESS 

V;HI3 /SP5CD IN. .M/SEC* "\ :A( I ) = xiiPLOOO/SpOO , .'• ■ 

TOt .. if Z<1 THEN PRINT , ,'P THE D IPN S I T Y .' 0 \-\ A N 0 B J E C "f IS " X5 "G/MP. WHAT .IS 

ITS DENSITY IN LB/GAL* ? " \A < 2 ) -=X5w'- 40()0/ < -454>!<:i. .> 06 > .. •• 
106 SfiZ^- .THEN, PRINT "* HOW MALilp FlT/i 



ANY 



' s e c a re t h i:;: r e i n » x 6 " m / h rs; ? " \ a ( 3 ) ■■ 



\l "PEHPPPNO •' X5- " ■ C E NTl-M'E T E R B ■ . Hp W . Hp N Y . MILE'S D : 
■.07 IP T!-fTT6( .A ('3)~~X6/1 600 - f -:X7;!<645.P:1. 760 IS75*X' 

HO . IF Z~ £ ■ THEN PR-INT " 'YOU HAOE A "/ XT 'GALLON I 



P04/IF'kZ-~4 THEN; "PRINT . A BOX HAG' THE DIMENSIONS . " X2"CM X " XS "FT X "XT 

'pt,:' • .-■ ■ - ; <*> '•' • ■ , i: =' ■ / x : ■ • vV . - 

loi; -Ifxzm Then -print r calculate irs oolume in .cubic "'ce^ti meters. if, \AC4 

: /X2 :p<6 ::< X 4 l< 3 0 . 4 S :K 2 , 5 4 ^ • ■ p.'T' p' ' >■ P :zL- ■ 

'106'' IF Z^5 THEN ...PRINT " -A* MAN . WAppffv P' X6P" METERS ? " 64M>KX7 " YARDS* " 875:* 

DID HE WALK?' '' : • , P 

. 1X5230 1X5X160000 ' .:' 

FISH. TANK/ AMD 1 YOU USE 

* '" X2 ; "LITER CONTAINEp TO ,IVX1:LLP I.T1 HOW MANY OF THESE CONTA I HEPS . Wli.. L -IT 

'take? ' • i . ' p p x; •. . /, . ; . . ... . pp— ;p.: : ?-.■ •"' 

:!.:P:i. .if. z^. then a •: 6 < «*• cx.!.'!x3X77)-x.X2 p- •• x , ';. >. 

IIP IF Z-7 THEN PRINT IF A LIOU^D flAS A DENS I TY-OF-. '"' X5 '" GXMLX- AND YOli 
HAVE. ' XI "LB . OF THE SANE L 1 0 U JilR HOW MANY GALLONS.' DO- i'OH-M-IAOE? " •' 

Pi 6 IF Z- 7 • THEN' ACT) - XI * , :!. 2/X5v(! *: . '.; r-' P ' 

120.. IF '-Z-S THEN PRINT " IF CAR j. Spi TRAVELLING AT P'<!7X2 "M/.SEC» AND CAR , 
2 .ia; .TRAVELLING' .AT « XI "Ml/HR, f^ND THEY ARE SO IMG A . DISTANCE OF '' X5, "T< ' 

■'h . UH tCH- WILL BE THE FIRST'. TO. ARRi!|'VE? " . •'. - . '. 

pp:px::F; then, if jxxx'p?/ ? > xi ifjjEN ayg>-i% else "a<S)-2% > ■ 

165 -'IFPlxp THEM PRINT " HOW MANY .SECONDS W P.. I... IT TAKE A CAR TRAVEL ! PNG/ A 
' P-iPH:- , T 0 -COVER A D I STANCE pFp,!' XI " KM?' " VA '( 9) == (X 1*2250 >/X3 '/• • ' 
P'P-T IF: PZ-.- 10.. THEN P.RIi-lT ' YOU V.tiVEfMfLZQUm WITH A' DENSITY Or' " XS"' " G>ML , A. 

TP-'COi-fi'AlNER -WITH A CAPACITY- OF I " X2 "CUBIC FEE-TP P ' • ■ .:. '' ; : . ' 

16.1- IP Z'-- = 10 .THEN •pRi^T-.." HOW MANY*!! KILOGRAMS OF THIS -LIOU-ID WILL FII...L THE 
; CONTAINER?. ''XA< 10 ) 'X5*:<2*28 6Pp6jFP '• *- . ' • • • ' ' . •".' . ' ' ' " 

L75 .IF >'::.:.: THEN. '200 . ■ - V-'H " ''" ■ ' " ' 

'79 PRINT P. ' ',.•'•,. : •' .' • ' ' ' • .'.-'".' '•..'•,..' 

ISO PRINi'v TMPUT " YOUR ANSWER-:'^ ~r ■'-.•--'•--- ' " 5 B (Z l'\f R I NT ■ 

..^'•J'!-" ABS A 02 X~B 'PI) ) ' . 0 ! THENp.IOOO ELSE PRINT " CQRRECI.PPEI.i . 'P. 

TteP IF :" = : U!:THEN . S0Q ... ,xv 
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. v ... r ... 



- "a i- --' ••••• 



■. .. .'i'.'.,., 



300 PRINT " YOUR PRACTICE SESSION HAS ENDED i l-'LEASE CALL. YOUR ■ INSTRUCTOR '•. 

301 INPUT l<% .• 

503 'PRINT \ PRINT ... '. V, 

5 OS PRINT " TIIE STUDENT. " Al'$: " ■> . HAS COMPLETED THIS. SESSION. "\PE I NT 
S6o' PRINT Al$ " •>'■■ HAS ANSWERED * S «' QUESTIONS CORRECTLY <• "\PEINT 
SO? P RI NT \ P R I N T \ P PINT \ P R I NT \ P R IN T 7,7.' , 

510 PRI'MT " v HERE V ARE 'THE CORRECT ANSWERS AND. •• "XPRINT 
S20 P 9. T *<t v • O x N'T \PR T i'lVPR f NT YPR.I N T\PR I NT.\F i '< i NT —7 . 

'7 i" : Ei;i." |TAB. ( 20 ). " CORRECT ANSWERS ".iLIAB v45> 7'STUDENT' 

• " • • " ■' .•"*'•'' ">i '. . • ' ■ •.• ' •' . '•• 

535 - PRINT TAB (A* TAB (20) •■■:;i{j!<***:K**W****' >. ?Tift^"<'4sy.' - **.*)k.!li#*** .. :• 

^JjRitJKJK**'" "" - 7 \ \ .' * . ■. ' 7 ••••• .••;•» ' '' -■■ .'V, ' 

53a PRINJ ' / "• I.'.' ' ' 77. • ■'••■•'V'. '•'" ••' 

540'' ; FOR- '7,5*1' TO .'idv' PRINT TABW''2.5 " : 7. j ••/'•;" ■:';"•* . • ,r '" : / ■ 

sajt- F.*^-^#***^*ri ../••'••/.• •■ . 7 v:. , v -t . V >•.('•••' Vt'-77^v7Vv 

5427 FRINTTT:A,B<22.>. ' * ? V PR INT US I NO. A.OZOf: -V : 7* 77. H»v_/ 7 

550 -PRINT vTAD ( 73 > "8(2} 7 7' ': 7 .; 7 j : 77 '...! l " * «-..':'. ••V-;7;\ ; v-.'.vi " 

360 NEXT 2 •• , 7'V 5 



0 GO TO 2000 



11 Y 



1000 . CI-CIMAP-RTNT ' •' r ■ . 
1-005'. IF- C1--1/ THEN PRINT. "YOU ARE TNCORRECT •> TRY AGAIN, EL^ILFN^INT 
CU ARE WRONG AGAIN » THE CORRECT ANSWER .IS *~~-.- T ' > :•••?:'• . " 

1006 IE- Cl«l THEN. ISO ELSE IF Z=8 THEN PRINT "CAR #"•.« A(S) ELSE PRINT JJS 
INS 7' ##'*##* »#'*;" v - A7.Z) ■> '.■ ' .•'.-' • ' : 7 '7. \" 

1007 IF. -2«1 : THEN' PRIMT.'" N/SEC " EL S.E ' IT" '.2 =•• 2. ¥ H E^N P R I N T " LB/ GAL "■ ELS.E IF 
1-3 7HEN' PRINT " ET/SEC" .ELSE IF 2-4 THEN PRINT C± C , " ELSE: IF Z--5 THE 

N PRINT " -.MILES ELSE IF 2- K 6 THEN PRINT.7"' CONTAINERS^'',. ' ' 

1003 IF Z-7 THEN PRINT " GALLONS '' ELSE IF Z- :: ? 'THEN PRINT ' " SEC ♦•. " ELSE I 
F ' I -TO. THEN PRINT' " KILOGRAMS " .'• 
100'?. PRINT •.-' ' \ 7 . 

.1.0.3.0 IE CI -!.-. THEN 100 ELSE 200 ; " 

2000 END. " .•>'•••'••'"' '- .\/ '..■-. '■■':■. 77 : ; ; 



( 



READY 



X; 
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ERIC 



V - 



CHE508 '. 13T03 . 19-As=-r-77 . " y • 

it R Efj; - THIS IS A PRACTICE. .SESSION; ON WORD i ROBLEMS ♦ '•»>»»»> ^>>>>>>>:>>>y> ' 

THIS PROGRAM HAS BEEN PREPARED BY DR. ','Ml.in ' OA' ' ARDG , OF !<• >S COMMUNITY- { 

COLLEGE i AND WAS SUBSIDIZED BY: A GP^^ fll^ It NATIONAL £>; FOUN 

5 ..input, • " . , code * " 9 m% ' ; 
6\print\pr>int . ' - 

10. IF M%ri THEN 39 .**' •. . . 

li INPUT T.'AFTBJR THE' QUESTION* MARK <?),. TYPE YOUR NAME. "7 .Al$ 

12' PRINTV INPUT " AFTER THE QUESTION' MARK (,? ) ,' TYPE YOUR SOCIAL SECURITY NUMBER » 
0 fA2$\PRINT - . 

li PRINT "'YOUR, NAME IS » ." 5. . Vl$ J. " , AND YOUR SOCIAL SECURITY* NUMBER- "VPR I NT - 
14 PRINT IS, " 'A2* % ARE THEY- CORRECT? TYPE 'Y' ■ FOR YES AND ' N '• FOR NO » ' "v 
15. INPjfiT A3* \PRINT . ,' , , . ' : ' •. 

16 IF .ASl^N" THEN 11 ■ * i '• V ' . \ 

17 'IF/ A3$<> Y". THEN PRINT " TYPE. ' Y ' OR 'N' ONLY !.!!!« "\PRINT\GOTO 13 ; 

39 INPUT " HQ*J MANY PROBLEMS DO YOU WANT " 5 N ■ ' - . ' • ' 

40 Ei ######♦#'#•■ • " , . .. ': V " ■ 
413 DIM A ( 25 ) ,.B < 25 ) . ' a /, ' '• '}/■''■ , ' y 
Sb.;iF L~0 IHEN51 ELSE IF L=l THEN 52 ELSE IF L==2' THEN 53ELSE IF L=3 THEN 54 

51 FOR Z-l TO N \G0T055 " ' ' •■ ■ g' . • . '■ '< 

52 "FOR. Zl-N+l TO N+B*\GOTO 55 .,' v .. 

53 FOR Z2=. N+l+B/< TO N f B% f C/AGOTO 55 •■.':*' ' , 

54 FOR Z<3= N+'l+BX+CX TO N+B%+C%+D%' - • ."• .-. ' 

55 RANDOMIZE . . • » . ' • ?. 
■<50 X*«.<XNT(100*(95kRND.. : +i') ) )./100 \X2=^ ( INIT( 100* < 9>KRND +1> ) )/100 ' 

65 X3=<;INT<10tf*<70*RND +20 ) > ) /1 00\X4a= C>£^rf U 00* ( 65*RNIL +15 ) ) ) /100 ? " ' 

66 X5= ( I NT < 100* C4"99*RND +500) ) ) /100XX6-- < I N T < 100* ( 10.00*RND +1000 ) ) ) /100 

67 ■ X 1'2= INT <X2> \X7~ < INT ( 1 00* ( 5*RND. +15) ) ) / 1 00\XS= ( I NTX 100*< 20*RNI'i + 1.5 ) ) ) / 1 00 
69 C1=0\PRINT\PRINT\PRINT . ■-' ' ' 
7*0 IF .Z<10 THEN PRINT TAB ( 15 ) "********** '■ ELSE PRINT TAB(15) u *********** 

71 PRINT TAB (15'-)' "PROBLEM " Z . *, \ '"' 

72 IF Z<10 THEN PRINT TAB ( 15) "*******%**« ELSE PRINT , TAB < 15) '"***********'■" 

73 PRINTXPRINT ' 

100 IF Z<> 1 THEN llQ^EL^E PRINT " A BRASS BAR .. WEIGHING- XA " LBS IS MADE OF "' X 
3- "X ZINC AND THE BALANCE OF * 

101 • PRINT "COPPER ».. HOW MANY LBS » OF COPPER DOES IT CONTAIN? " 

102 A(1)=X4 - < <X3*X4)/100)\ ' 

110 IF ZO-2 THEN 120 ELSE JPRCCNT " A TRUCK CARRYING " X5 " LBS OF COAL WEIGHED " X 

6 " L'BS/^V- •■ . ■ - ; f "' ■ , ' ■ 

111 PRINT "WHAT PERCENT OF THE TOTAL WEIGHT WAS. DUE TO THE WEIGHT OF THE TRUCK- 1 ' • " 

112 A(2)=(100*CX6~X5) )/X6 . ' . . 

1.20 IF. Z<>3 THEN 130 -ELSE- PRINT ° HOW MANY SHEETS OF METAL 1/ " X-1% " INCHES THICK 
ARE THERE IN A PILE " X4 "^INCHES " - ". - - .■ ' V 

121 PRINT "HIGH? " . '..' •> ., . V 

122 A(3)= X4*X1% . .. ; ; 

130 IF Z<v;=-4 THEN/-140 ELSE PRINT " A ROOF IS TILED AT A COST OF *- XI ' PER SQUARE 

FOOT> IF THE ROQF ^iEASURE" " )<3 " X " X4 " FEETV WHAT IS THE COST OF THE JOB'? " 
132 A<4) ifINT(100*Xl*X3^X4,>/100. , . ""* ' . 15 . 

MO IF^^'5*THEN. 150 ELSE PRINT " AN OBJECT MOVES " X4 " 'FEET EVERY " X2 » SFCOND 
S>. I+OW'WWY FE':ET WOULD IT TRAVEL AFTER "XI "."HOURS? 4 " " 
142 .A ( 5, ) - ( 3600*X1*X4) /X2 , : 

150 IF Zi>6 THJZN 160 - ELSE PRINT " IF AN AUTOMOBILE"' RUNS " X3 " Mil FS ON " X2 " OA 
LLONS OF. GAS.s' HOW FAR WOULD It" 

151 PRINT,. "GO ON A FULL " X7 ■ GALLONS TANK? " , 

152 A,(6)«. CINT<100*X3*X7/X2 + 5) )/100 . •' '• 

WO- IF Zp-7 THEN. 170- ELSE PRINT. " IF A. -POLE " X7 '" FEET HIGH CASTS A SHADOW " XI - 
" FEET LONG ? HOW LONG. A SHADOW " , : r - ' . 

161 'f^IN'T- "WOULD, A " X8 " .FEET HI(3H POLE, CAST''' " ■> ' . ' ': ' 

162 A(7>~(INT<100*X.l*Xe7X7) )/:LOO' V , . • ' ' ' • .. . 

170 IF ( Z<> 8 THEN .1-90 LELSE PRINT • "' X5 " LITERS OF A . LIQUID, HAVE A v WEIGHT OF " X 
3 "(J'"S. HOW MANY LBS OF THE " • , : • '•■ 

•ERIC"' ■ ■ " ■ V ' ; 23 ;>"•"•'• , \ ';. ' ■ ; 



1.71, PR-INT " LIQUID WOULD' BE. USE 1 "! IN AN EXPERIMENT* THAT CALLS FOR • X4 " LITERS' 1 ' ' • 
t-72 A (.8 ) ?-.X XNT*< 100*X«*X4/'X5):> / .1. 00 ' * k •••••• - 

190' IF Zf.>9 /THEN 200 ELSE PRINT "• A BAR, ' XI " METER* LONG* WEIGHS " X2 "GRAMS. H * 
DW MANY GRAMS WOULD, A.SIMILAR " iv • - 

191 PRINT "BAR " X3 . " METER LONG y WEIGH? " ': 
192' A(9) = ( INT( 100*X2.HCX3/X1 ) )/10b • 

200 IF Z<,>10 THEN 210 ELSE PR.TNT " A TRAIN MAKES A.^*TR IP IN " X8 " HOURS TRAVELLIN- 
3 AT. A SPEED OF " X7 " MPH » I F A " '->'•' / . - . . • • . 

201. PRINT "SECOND TRAIN* MAKES THE SAME TRIP, IN • " X4\ HOURS y HOW FAST DOES " ' . 
202 PRINT "IT MOVES? "\A< 10 ) = ( INT( 100*X3*X4/X7) >/100 V >'.'. " •'. : A ' • 

210 IF ZOll THEN 215 ELSE PRINT • " A SUBSTANCE IS" COMPOSED "OF " X2 " GRAMS OF HYD " 
a'OGENs' "X3 " GRAMS OF. SULFUR" , ' ' • » 

211. .PRINT " AND: "XS " - GRAMS OF OXYGEN . WHAT IS THE* PERCENT. OF OXYGEN FOUND IN THE 

212 PRINT "SUBSTANCE? " NA < 1 1 ) = ( INT < 10Q#< X5$100) / < X2+X3+X5 ) ) ) /l 00. ' ' 

215' IF Z<>12 'THEN 220 ELSE PRINT " IN THE FOLLOWING -FORMULA » ' D~ ' ATGPD . HAS THE UA 

LUE " XI " * T HAS THE UALUE " X2" AND" ■ \ - ■ .-'*. • . N T 

216 PRINT " G HAS THE UALUE " X3:. " WHAT IS THE UALUE = OF A? " \ A < 12 ) -XI / < •X2'*X3!) . . A 

220 IF ZO.L3 THEN 225 ELSE PRINT. " 'A SUGAR SOLUTION IS F'REPARED MIXING " X3 " MIL 
LIL ITERS OF WATER AND " X4 " GRAMS OF SUGAR" v . . ' r ' . , V. '. 

221 PRINT "HOW MANY GRAMS OF SUGAR SHOULD BE MIXED WITH " X2 " MILLILITERS OF WAT - 

er» to " .*. .'y. '• , ■. ■ ^ •'•.... 

222 PRINT "OBTAIN A SIMILAR SOLUTTON? " \A< 13)c-AX4#'X2)VX3 .•*••'•.-.. '•' 

225 IF Z014 THEN • 230 ELSE PRINT " THE COST , OF A 3 LBS BAG OF COFFEE WAS *" XI 
LAST MONTH. TODAY THE SAME BAG" " • ' - 

226 PRINT "COST v $" X2 " ♦ WHAT WAS THE PERCENT . INCREASE PER LBS OF COFFEE?" " \A ( 14) 

= <X2-xi)*ioo/xi ' * ' . , ' 

230 IF M%*=i THEM 297 . . ' 

231 PRINTXPRINT "" ". 

250 INPUT '" YOUR ANSWER BiZ) ' ' 

252 IF ABS < A ( Z) -B ( Z ) ) > . 02 THEN 498 ELSE PRiNTXPR INTXPRINT ". . " CORRECT!!! " 

253 • Sl=Slfl f 

295 IF Z~N f B%+C%+D% THEN 2015 ' .. 

297. IFL-0 THEN 304 ■ ELSE IF L=l THEN 303 ELSE IF L~2 THEN 302 ELSE IF L=3 THEN 301 

301 Z=Z+1\NEXT Z3 "• ■ ',' ■". '. . 

302 Z=Z.H\NEXT 22 , 1 • ' '. '. 

303 Z»Z+I\NEXT Zl ' ' ' . . ' : 

304 NEXT Z • •„., . , ••',.••• 

497 GOTO 2015 • . - • 

498 PRINT • ' " " V ^ ' •"'•"' 
50d Cl-ClilAlF Cl»i THEN PRINT • YOU ARE INCORRECT. TRY AGA'JN'. " ELSE PRINT T " YOU 

ARE WRONG AGAIN. THE CORRECT ANSWER IS — «> ' , . . 

502 if Then ' 230 f ' - ■ ■ . - 

503 PRINT' USING P*7 - AC Z) ' 

505 GOTO 297 ... - " ' . , ,' 

1500 GOJO 2000 ' " . «, • 

1990 IF M%~1 THEN 1994 ELSE PRINT- 9 THE STUDENT "' Al* % HAS ENDED THIS SESSION ♦ - " 
"APR INT V f 

1991 PjMNT Al* ■'"» HAS ANSWERED " SI " x QUESTIONS CORRECTLY. " . • . 

1992 PRINT . ■"* • : • ' s 
1993' PRINT " HERE ARE * 8 Al$ "' S. ANSWERS AND THE CORRECT ANSWERS. \" 

1 9 9 4 P R I NT\ PR IN T \ P ! < I N f \ F' R [ NT . ' ■ . • ' ' ': 

2000-.PRI-NT TAB < 3 ) " PROBLEM " 5TAB ( AS ) ' CORRECT ANSWER " 5 TAB ( 3*5 >*■ "STUDENT* ANSWER " 

2001 PRINT TAB ( 3 ) " " » TAB ( 1 5 ) " >K>!<>i< " 5 TAB ( 35 ) " ********'***#** " " " .. ; " • 

2002 PRINTXPR INT. » : . ; ' A - . . 

2005 FOR Z=l TO N' f' B% + CZ + D% .. .; . > 

2007 PRINT TAB ( ,6) ' ' Z-> i" . 

2009 PRINT TAB ( .18 ) ' ' A(Z) 5 . ■ • 

201 Ol PRINT ' TAB (.39) "B(Z) ■ X, ' - ' ' ■ - V • ' . : 
2014 NEXT 2- " . : - -' 0 * ■ • ■ ■ , 

2 ^ < r x • ' ^ L f 1 \P R I N T \ P R J.' N T — , . ' /.. / " r • / . 

-FRIf F Q$ ~ "NO" THEN 3000 , ■ 24 '•••, 

NPUT " DO YOU WANT MORE, PROBLEMS "iO*, . - " " s . v, : 



2021 PRINT\PRIMT 

2030 IF Q*~ " YES." THEN 2031' ELSE: 1990 



2031 -IF L*l THEN Z-ZM ELSE IF L=3 THEN Z=Z-1 < - ' ' v / 

?°5L'i F : "V* 1 TH ! K 2038 ELSE • IF l-- :: =2 ;THEN. 2040 ELSE IF L~3 THEN 2042 ELSE .tF : L^4 inE 



N 3000 

2033 INPUT. " HOW MANY PROBLEMS 5 fiXXGOTO SS 
2040 INPUT " , HOW 'MANY PROBLEMS " 5 C^XGOTO S3' 
2042 INPUT f. HOW MANY PROBLEMS ^ f D%\GGTO \!S4 ; \ 
2.Q50 GOTO .55 ". • ' 

3000 END <\ .V .. • V - r < 
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0ME603 ■;, 1.07.33,'. • I.a-Apr.~77. ;. '-"'•'•'*- - ■« \ ■'. '" : " '.'. ' .. 

1 •:» . .THIS'-4S' A PR.AGT ICE SESSION : .\J\ BALANCING CHEN 1' CAL - EQUATIONS » 

2 •■'.SeM\THJ,^ , F<OGRA.f*j, WAS DE^f 'LOPED • BY • DR , JUL']: O GAL LAP; DO AND MR* STEVEN DELGABCk 0- 
F 'Hq'iST3S v ^fpMUH I T Y COLLEggi' AND W*AS 'SUBSIDIZED BY A . GRANT -FRflfl' THE RATIONAL :SClEN 

v:e,;f.o"#!Da^n^ . »♦:>. .n,'*-^,.,,;;' ■' . • ■■■ 

.3' ps irtxprx nj\ print •• ' ' ', . .'.•'.'•*• . * ;.. ■ A : -■ 

."5 PRINT '" THE. COMPUTER. WILL . PRINT AN UNBALANCED • CHEMICAL EQUATION ♦ " \P-RIjNT' 

6 PRINT . ".YOU . MILL * TYPE 1 IN-' YC.UR ANSWER AFTER THE '-.QUESTION ViARK < ? >\' " \PRINT\PRINT\P 
PINT .. . •"* ." '. " :..•■.•.■•:.."'•« " ■■ ' '■' V- . 'i** 

,;T. PRINT " V ', XOUP; ANSWER SHOULD BE TYPED IN USING THE". FORM ' ; 1 ? 9 ? 6 ? 7 ? ETC.* , • '. ► .YOUR' 

S PftliMT.^ "ANSWER' SHOULD INCLUDE. ANY COEPTlCfENTs'rHAT MAY BE EQUAL. . TO OWE.«." • .• 

•? ■ P R I N T " EUE N : T H 0 (J G H T H I S 'I S U SU A L I... Y .. N 0 T D 0 ME 1 '# * * * * * * * **** * # * * * * * *.* * * :£* :{$ * * >k * :K:« # * :5c 

" '..''' ■ •■ •' - •. • ' '■' • '•.,«# "■■■''■■•';/'^ > '• ■ 

I'OV #R TNf \FRI-HT S^-IHT- ' .• '• : : '•' ' " .... ^ ''' • - : 

'if : :: TI R * • I 1 T.O 7 \ !■•• R I NT TAB :. 5 ■¥■ I > *' Y " ? \ N R X T ' I ' \' . • , . . . . . ' ;• . 

■ 12 ;i : N r ClN.T\l;'R'INT TAB ( 6 );. ir EXAM < PltE "'. . ■/..-'■ '.' » .., - "' •' •' • ':. ; - : ."• '. . 

,i3 ',i"'0R .'.'I ; r ± '.TO 7 .\PRTNT' TAB\' 5^1.)- " J \NEXT • T . " * - ' * , ' ' ■ '- •' '"' 

i i prinT\pr;:nt\print . T . ','•.: . . ' •• . ' . '. ; -.'t 

i'S' PRINT T AS (:!.?) ' "H0.1. •A-f. NbOH — -- 'ft ViwCI ' + ;H' 0 " \PRINT : TAB'< 43 ) " 2 " \PRINT\PRINT 
PRINT YOURLflfN^'WERL-WILL LOOK LIKE. .t'lHIS.* • . " XPRINT- ' • *: • " H '• ' 

.17'" PRINT TABT 320 " — -» — '■-— ft " VP'RINTXPRINTXPRIN'T, ' ' " \- " ' • .' 

•:i:'B.' PR IH'f ' IP YOU < SHOULD ANSWER -ANY •• QUESTION., WRONG TWICE F- THE COMPUTER WILL" 1 

19 PRINT " TYPE OUT; THE CORRECT 'ANSWER AND ALSO. THE BALANCED EQUATION , HOWEUER •> " , 
*20 PRINT JVJHE ; CONr'UTER. W I LL PRINT THE' ..BALANCED EQUATION ONLY WITH COEFFICIENTS ." 

..5.;." : /-IjKir^M i \t„H r H [-\ Y-l ' .!. » * » + ^ v » 11 '■ ^ 

22,'pR:n ; JT\PRINT\PRINT .• ' ■ ■ 'v ' .•' ' ~ '• ..: "• '' ^ ' 

3\S RANDOMIZE ' . '* "' : '' V "" • >' . 

9.0 RANDOMIZE ■.>,''•. .. <.-,-: ' " ; - '.,;.. •'.;'.'. •." '• 

?5 3a" iNT'ZYRND flZ) - - ' T .N ' ' ! '. 

print o'" - : .'•' " ,••..'.: .'.•'« ■ -.. . ■ ■" 

-0*2 :i:F- S%»1. THEN CH«N " E0UAT2 " ELSE. IF SZ----2 TI-IEN CHAI N " ECU ATS " ELSE- IF S%-3 THE 
N , CHAZN - $Vm%4 " -ELSE IF 'SX :=i l THEN CHAIN " EQUAT5" / . \ ' 

':..:>•:■•:-. EN ;i ' . .■ - '. ' ..' .. ■ . l , . > ■ ,., .■ ; ■ - . 



R ■:£ yc;' ; ; 



STEVEN DELGADO 



E0.U.A.T2 . :L2t<)9 . . ' "V ;L3....A ) .v r ..-77 , ' . 1 '■ ;/ .. 

jA REM™ THIS IS.A' PRACTICE SESSION IjA I, ANTING CHEMICAL. EDUAT-TONS. 

2,!/:J.HIS PR0GRA/4 Hi^i.&EEN DEVELOPED BY DRA' JULIO t) ALL A ft DP)-? ' AND '«R. ... . 

i? V!QF HOSTGS COMMUNITY:; COLLEGE/ ANTJ WAG' SUBSIDISED. BY A GRANT FROM THE*' NAT I ON Aba* SO 
IEWCE FOUNDATION, '■•' ■ ■ ^ . . r <■ A ' 

3 F'RI M j\"*RR I NT.\RR I NT ;•• - A'--, A.... -'-AAA -A .' . . . .. • 

4 - INPUT -AFTER. THE : IMJEST'ipN : - NARK , C TYPE ; YOUR NAME. " ^aUnPRINT .' • A. 

'S ■aaHRUT ".:A Ft ER:jHE QUESTION' MARIA <?)A TYPE YOUR SOCIAL -.SECURITY NUMBER »' A2*\P 

RI.MTA • ,: • ;.. ' J> ; . . .. : .. -.•■' .... ,. . : . • •■ • _. » .. 

6 PRINT'*-" Y.Q.UR:. NAM.E IS*. ." .AW- " ? AND YOUR • SOClAI.. ;.'Sl:~CUR I T.Y NUMBER "\PRINT • . ; 

7*'RINT. ARE. THEY. .CORRECT? '"'TYRE .'V.' FOR" YES OR ' N ' FOR NO ♦•' " *. 

8 INPUT .A 3% AFRkENT- A'A-AA ..V . A : ' ' A , • • ■"•■'■'V- 

f'.\.f.F A3* V^*N"- THEN 3 '■■■"'■' . ' V. ••• ■- .'. :..' 

10: ;XF ^9<:>v«.Yi- THEN PRINT X TYPlf ''Y" OR ' N ' ONLY! ! !! ! '» APR. I NT \G0T06 ' '/ ' ' ' 

5 9 • • D' IN .A # : CI G > 1 0 ) \ D I M-. B.$ ( 1 0 r ^ <> ) \il IN C * (• l'-Q > ' 1 0*) * .A''- •..,.'.' - , /• V -A'A;. 
o'3 .D'il; < 1 ) -V. .2 *.;<,> 2 .".\D$ ( 2 1 ; I )= : " 1 r3 2 "ADiM 3, 1 >» " 4 ':I.I ? 2 ? 8 " \D$ ( 4* 1 >. ' 2 » 2 » 3 "\D$( 

5yl)«":.'3^;3,2f4 > -• • '-AAA..' ! ; i '■' ' ,' A - A' ■ ■ " ; 

p7 D* ALA?)*" 2*1* 1*2 " \D$ "C:"2 t 2 ) >" 1 > 4/1 "\Di< 3 F 2 )« ir /l , "\ , 1 ,A 11 \D*a4A 2) - " I ■> 4 

n \li'U r 5./2 2>15Vl'6a2 " •• ■ . 1 •s.^'-.. ; V A* ; - • 

99 >AI$; s ." QORRtCT!! ! ; .*\Er$A- WHA'T ARE THE :QJSW<£C'X COEFFICIENTS •>"-•''• . , : 
10y .m%Ul H .- -f 0 — — > 'II 0" .. ..« :." ' ? - 

Bt'iXri')^ 2 -.2 " ' 2^ " : ''■ '••-•' A-AA'- ■ • '•., ' 

l(>2.;A*.(2yr>:=" N A H ' 1> N!-| .»' '• .A A'.'- "A A . ' '.;/'•; 

t<J3 : :B>.f2;.U*t £/a. - 2 •'.''•'A : :^ :3 "' -'. A' ^A v ';\A ; ' AV ' f- - 

d04 ,A$ ( 3» 1)~'' .FeS ' -f . 0 J Fe G. ; : 4- SO " ~ ~- A * ' 



10.5' 0$<3y.t>«-" .. 2V ' . 2 '•• •; 2 3 

1 Qv* Ai- ( 4 ?1 ) s " KC 1 G A — — ;> : KCI + ; 0 " • : -'. ■■■■■■ J ■ 

10.7,. B*.( 4,1)-" . 3. ■ ; '.. ,•,'•:>'' •••2 "»:-'•"' ■ A"'A . ; . 'A'-.;- 

ids- .a$x s> - *. H' s ■ ' : hng : ;> s f .no + h o" ■ .A-.-... 

109 8.-B.<.Sf !■').■=■ "'.j.; 2 ':-•>• , - : - '. 3 ■ • • 2" ' ■ ■ 

:H5 A2,(;|, i-2)-" NaCl • f H- SO ~ > Na SO '"+• HC1" A 'A.. ' ; A ''"'"A'.' 

ilv?. B : 5 < :!. ? 2 ) - " •.*•■ •:• 2 4 A. - • 2 -4 " • ' ' ''"" ;V ' 

il-7 .^-<2f2 );«•*••• Ni". ''+' CO • Ni (CO) " ••.•-'"." - . "■ '.y ;. ; ' . 

IIS- BrA-2-/2)-- ' . . :>'* >Vf ,v '.- A " . .' , ': v • -"""A- ' .'A 

ii?..:A*<S»2)»"' (nha): c.r .o ' A--^> '/' n *+' *Ct o - f h 0" ""aa ■ ; \ :<•: 

1.20 ' B $ C 3 , 2 ) - " . -4 ' 2» • . 2 7. 2 • 2 3 ?"■ < AAA 

:L21:^i!i<4>,2) = " K r c;A.f AH G K..r ,f - 0 + HE'- ' ••*•' • . '.• ' ' 

iS||(4l)^ .y2; ;a:- 2,,,', V - ■2 " > ' " ' • ■>,■■ ' % * " A''"' 

I23**<3*2t-" C '"' 0H-.+ ' 0 CO * f H 0 " . ' ' -V.. V 

124 BIKS..^^", 5 11 - 2 , 2- 2" ' . ; 'A • ■ ' 

300\C*Ar/lf-r2.H '' f. . .-0 . 2H 0 " " • '. .. 'A 

301 C,^ 2,7 1) ; = N :. + 3H - 2NH ■ "". ' . . : * 

i?0'2 C$H 3 » I') •= ".4FeS A" ' +• , tl6 . -2FeO + 8S0 ""• .' / "' 

303 .C*( 4*1 2KC10' A !- .;-.v—~> .'v2KCl + A5 0 " ' - A',' - ■ , '" "'•.'•. 

3P4< C*<5>:1 )=?? 3"H S ••■■+■■ 2 HNG > 3S A ' 2N0 f ' 4H 0 " • "' " . •. A A 

310..C:Ki;2-)-"2N«Cl -A- H 30 ,'■ — Ma 'SO ; f PHCl " ' ■. 

311» C*(2. ? 2)-" + 4C0 ^- ^ N'i.(CD) - ? •'/ A' . A A • 

liZ ■ G$ : .< 3 ? 2 ).'•= - 4 m "> 'C r • 0 — A^.': M . + Cr 0 f.^l-AO " '.• • *' ' "' :: r J ' : " V - .-" : • 
3?!.3' C$ (472)A»2K r F + 2H '0 — > 2K c + 0 + 4HF " ' - . ' , . ' - . 

314 ; ClA-3^)-''2'C l-i- OH + .ISO •lOCO; }• J.21T G " • • 

•'00 • FifiVi^OpOM I'Z'E \ I ?"*•< INT < 4 :!<R NB ,fi »5 > ) \C1~0 : V A ' ' • ' , 

101 IF Zl-l ' THEN -IF .1 ~y% THEN 400 : ' A, • '• ;■ v . , . . •; '. , •■ ' 

102. /IF ' Zl --2ATHEM IF^ I-OA, THEN. 400' ELSE IF Vl*X-t THEN 400 A ' ! : ' • 

^03 .IF .Zl/=3 : THEN IF 'I^V?;. THEN 400 ELSE . IF. OA'A^I THEN 400 ; ELSE . IF 02%-I 'THEN 4 00 • 
*.0;4j-.IF'* Z3A-4 THEN I F I-OA THEN;. 400 ELSE IF- U1Z : -"J. THEN, 400 ELSE IF ; I«*V2Z THEN '400 r 
„SS." "IF-!I~": 03% THEN 400 'A-'' J> 

i'Q'3' IF Z 1-3 . THEN IF 1 ^ur THEN 400 ELSE IF I--Ay.% •' THEil 400, ELSE IF 1-02% THEN 400 E' 
-SE -IF ' I=-A'3.% THEN AOQ.> Ek&Z .IF.HA04% THEN , 4.00 * •'';-.'•,./•; >. .: :.'• '•.. . t. 

H)-6:'F0R. J:^ 1 .TO ■ '2 \ 01 ^0 '!; •- I. \ P F 1 NT A" "■'< 1 h\ 1 . PROBLEM " Q .1 \ IF- Ql <1 0, THEN PR I NT '" . ' *;!<:!< **V. 

ELSE '.PRINT : " iWty***' ■ ■ ■ • ; ' ". ;. . 

107 PR.INT\PRINT A$ < I/J ) \PRINT "'e*<I » J)\PRINTSPRINT 'iBi-??-. ■'■ ' ' ■ •■ ''• r '''" ' '■''*• ■' 

0 K^l THEN 803 .•. ... ....■•' -# rtr? • ' ''' ' 

^-ERIC J=*i then; if :i>3 then ,470. else if' i*s then Am else 460 • &*■ 

\mmm J~2 THEN IF 1-2 THEN. 460 ELSE IF I : ~4 THEM 400 ELSE 470 . ' ■ 



460 INPUT ' f)N%>MXfB% ■ . ■• ■.. ■": •' . ' 

461 GOTO 500 > ' ■ , " /. ... I ' • . 

470 INPUT*' ' iWLtMZrPXtQX 

471 GO 10/5,10 - " ■ • 

430 INPUT ' * i N% ? WAr P% i'QXt RX ' " , v 

48[1- GOTO 520 • . ' ; . ,' •• ' 

50.0 IF J-t. THEN . IF 1 = 1 THEN 303 ELBE IF. 3>2 ' THEN-- 505. ' ELSE. IF-" 1*4 THEN 50.7 

501 IF, J*2 THEN IF 1-2 THEM 509 ' . - . - ••. " '" ' • '• ' • '. 

50,3: IF N%<>2 THEN 8.00 ELBE IF M%<>.1 'THEN 800' ELSE- IF. P%'-<>2 THEN 800 ELBE GOT 09© 

o'.. , :. ; . • ■ ■ , . ••: •• -. • .'• ■■ :• 

505 IF N%<:>.1 THEN 800 ELSE "IF M%<>3 THEM 800 ELSE IF P% <>2 .T.HEN 800 ELSE 900 
507- IF N%<>.2 THEN 800 ELSE IF M%<>2 THEN 800 ELSE IF P%<>3 '"THEN 800 ELSE 900 .. 
SO? IF HZ<>1 THEN 8.00 ELSE IF M%<> 4 THEN 800 ELSE IF P%<>1 THEN 800 ELSE 900 . ' 
510 IF J- 1 THEN -SIS; ELSE IF '1*1 ' THEN. 512 ELBE IF 1*3 THEN; 514. ELSE IF I~=5 .THEN. 51. 
6 . ••• .. .. ; ; . ' ;• ; .,: ' ' •" ' . '• . . .- : . 

512 IF.fN%;C>2 THEN .800. ELSE IF H THEN 800 ELBE IFP%<>1 THEN 800 ELSEs IF Q%<>2 
THEM 800 ELSE 900 

Si 4 ';:iP: HXOH"/. THEN 800 ELSE IF N%<>P% THEN 800 ELSE IF HZOV THEN 800 ELSE IF Q%< 
>A THEM 800 ELSE* 900 " . .' . : " 

3:1.6' IF N%<>2 . THEM 800 ELSE IF M%<> 15 THEN 8.00 ELSE IF P%<>10 THEN 800, ELSE IF QZ . ' 
<>12 THEN 800 ELSE? 00 . ' ... : • ; 

518 IF HZ<>4 THEN 800; ELSE IF M%<> 1.1 THEN 800. ELSE IF • P%<>2 THEM 800 -ELSE. ..'IF- Q%<> " 
3 THEM 800 ELSE 900 . ' - : - * * . -V ' •* 

520 IF J~i THEN /IF. NX<>3 THEN 800 ELSE -IF M%-Q2 THEN 800 ELSE "IF P%<>3 |THEM 800 E. 
LSE IF 0%<>2 THEN 800' ELSE IF R%<>4 THEM 800 'ELSE 900 ' I . 

522 .IF N%<>2 THEM 800 ELSE IF M%<>2 THEN 80:0 ELSE IF fZ<>2 THEN 800 ELSE IF KOI 

THEM' 800 ELSE IF R%.<>4 . f HEN ■ 800 ELBE 900. ' ' ' ' • \ - ''■'■■.,,-•,■ .' 

600 FOR J-i TO 2\F0R i : =l TO. 5 :.,'', '• '.' [■■ ■ ■ ' ' 



602 PRINT 



UNBALANCED -s-r.*-—^ . " i. 



604 . PRINT TAB (27 ) ' ' ft*< TV J ) \PR INT TAB : ( 27 ) ' ' B'$ (••! t J ) VPRI'NT ■• '' ' . 

606' PRINT ■-■*********,• bSL&NCJSB . 
407 .'PPiNI TAB.( 3SFa / . ' . G$< 1 9 J )^\PR INT TAB<35) ' ' B*<j /J)\PRINT ■ 
603. NEXT I-.-' .♦•'"• „ ■ • • .if- !-•<"'.-••• '-, 1 .. • 

610. NEXT J :>./-. '. „ - 

611 .GOTO 3000- . . ,: ' . .." v 

300 -PRINT \C1==C 1 + 1 ' ' ' . 

8.01' IF • C 1 ■■, THEN PR I NT ' ." YOU ARE INCORRECT »• TRY AGAIN » ." •' ELSE PRINT YOU ARE'. WRO' 
NO' AGAIN-.:'. THE' -CORRECT ANSWER" IB — - -— . ' . 

802 IF CI : .w -l THEM 408 ELSE .PRINT ' D$ ^TV J ) \PR I NT\1*R X NT' ." THE BALANCED EQUATION IS 

AS' FOLLOWS > r - > " \PRLNT ':• . " '.. ' ':'''.■;.''■ ' ■ '" 

303.- Pn t'HX .-TAB (Sff) ' V C* < I-ril ) \PRI-NT . ; TAB < 25 )' ' ''B'$,( *V J > . . , •'..'•' 

80 4, C1-0\NEXT'.-J - ' ..^' •■•'. . •'•'!'•',•■' '.:.'-'.■ • : ; \. / . 

505 Zl"--.Zl f 1 ; ' • '.„ V, : . 

506 PRlNTX IF Zi>.4 .THEN PRINT "• YOUR SESSION HAS ENDED ^ ■" XPRIMTXGOTO 600 

307 -IF 7:1-1 THEN 0,%~I, ELSE- IF 21. «2 TNEN : "0.i%™I • E.LSE IF .2 1 =«3 . THEN V2%« V ELSE I F .21'-=' 
■4' THEN 03%"=.I ELSE s-IF-'.'Z 1=5 THEM V4%™I •'•.'.. - - ' • ' 

3/>8: , .G0T0400 ' ' '• ' ' ' ' ' ' ' ■ ' • •' ' 

900 PRINT Al'-'f '• A-:---. - 

901 GOTO f$03- . - ' v ; ... . . . 

3000 END : ' ' . " '•:'. , ■ • ' , ' . ' ' . 
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ERIC 



EQUAT3 12T16 ' 1.3- Ap r- 7 7 r ~~^.. -. ~^,. v _-- ■- r : Tr ^.~.^^...--~ 

1 R'tM- ;.THI'S IS A. PRACTICE SESSION IN BALANCING CHEMICAL EQUATIONS » . . ' ■ 

2 ! THIS' PROGRAM HAS BEEN DEVELOPED BY DR. JUL I 0 " BALLARD 0 r AND MR . STEVEN DELGADO 
''•"OF H03T0S COMMUNITY COLLEGE v AND WAS SUBSIDIZED BY A GRANT FROM THE NATIONAL SO 
IENCE FOUNDATION . ' . . 

3 PR INTXPRI NTX PR INT ' . • . 

4 INPUT -. AFTER; THE QUESTION MARK < ? ) , TYPE" YOUR NAMfct. " 5A1*\PRINT 

5 INPUT- " AFTER - THE QUESTION MARK (?) ■/ TYPE YOUR SOCIAL SECURITY NUMBER . "y/A2*XPR 
INT ■ •• ; '•'",'••'.'• 

6 PRINT » YOUR NAME IS* ' Al*> " v AND YOUR 'SOCIAL- SECURITY NUMBER "APR I NT 

7 . PRINT " IB? » A2*"..ARE THEY CORRECT? TYPE ' Y.' FOR YES OR 'M* FOR NO, 

8 INPUT., A3* XPRINT • ■ ■" • ' ':•• / 

9 IF: A3* 55 ""N" THEN 3. •'.',... '" " . ' ' / 

1.0 IF A3*<> "Y° THEN PRINT " TYPE 'Y' OR ' N ' ONLY!!!!!*' XPRINT \G0T06 ' - 

5.9 DIM A* ( J.Oy 10 ) \DlM B*< 10 y 10 );XpIM .6* ( 10 r 10 ) ' • ■ *' ' • ' A 

65 D* ( 1 ?3> » * tt 1 >l»-2 "AD* < 2*3. ) = " 1 » 1 , 1 1 2 "Mi.* ( 3 s» 3 ) » " 2 , 3 ? 1 , 6 " VD* < 4 » 3 ) «.»• 2 » 2 > 2 ? :li XD* ( 5 v3 
)»'3t%rl* •• ', ; .' .... . . . ; v . -. " * ■ A 

6.7 ..B* < 1 , 4 > « • 2.v .1 y 2 ■ \D* ( 2 y 4 ) •-•*-" 1 ,-3 *2fZ " YD* < 3 »4 ) » " 3» 2 y 1*6 " XD* < 4,4) » " 1' y 2 r 1 > 1 " YD* ( 5 y 4 > '» 
" 6 •/ .1 » 4 " • ■ v •• "A : • ..' . 

9'9 Al*. ; '~ " CORRECT ! ! ! "XB1* " = ' " WHAT ARE. THE CORRECT COEFFICIENTS 



130 


A*( 1 ?.3)~" 


BaCl '•'+•' ( MH ■') CC 


1,, :.L_.__ 


X? CJ w \J 


* ... 


MM pV» 

OA .. 


■ , 1 


131 


B*( 1 »3)~."- 


. ? . 4 9 : 




• ' * ■ 'X 




•. £ 


132' 


A$<27'3>«" 


Al ( OH.) +.;. NsOH 




NaAlO +'\ 




H 0 " / 

1 I • UJ .' 


133 


B*.(.2 7 3.)=='" 


• 3 . ' 






. ■■ 




■■ 


1-34 


.A*<3y3)a" 


Fe ( OH ) + H SO 





Fe v( SG ) ' 




+ H 0 " 
■ n» 




1.35 


3* (3 7.3) 


3 2 4 




2 4 


;■ " 


' >.' '* 


136 


A*<4s»3)~" 


Na +. H o — , — > 


NaOH 


.+ , H n 




■* ■ 




137 


B*(4i'3)«" 


2 • 


■ **• 








138 


A* ( 5 s> 3 ) •- '.' 


M<2 ' + M . r> 


ny in 






■ ' . 


'/ ' •. 


139 


B*(5V3)~" 


<•) "• 












"145 


A* (1*4) 


Mi4 + G >^ 








■ ■ . ? -.; ■; ■ •• • 




146 


B $ < 1 y 4 ) - •. 


OH 

WW. 












147 


•'A*-(2»4').=>' 


C H 0 +, 0 


CO 


'.+-. H 0 " 








148 


B*X2s»4> = " 


2 6 . ••- 2 


n 
*■« 


:•' . 2" 








149 


A*<3*4)~" 


FeCl + Ns PO 


— 


F© .(PO ) • 


+ 


NaCl " j 




150. 


B* (3v4)=" 


> 2 ' 3 4 




3 4 2." 








.151 


' A*<4*4> = " 


CaC; + Hi'O 


> C H 


••+■'■ Ca(OH) 


. tl 






1 52 


Bf <4s»4')«" 


-:> •■> 


• ■ 2 2 




2" 






1'53 


A* (5 7 4.)==" 


Nb 0 f P 0 


-> " Ns 


PO " 








154 


B*<'5»4)~* 


2 V' 4 10 ' 




3 4" 








320 


C*( it 3)*.« 


BbCL ..+' (MH ) CO 




5> Be CO 


+ 


■ 2NH CI " . 




321. 


C*'< -2/3 ')*•■ 


Al (OH) ■ f NsOH 


— '--> 


NaAlO . + 


n 

A- 


HO " 




322 


C*(3 ? 3)^" 


2Fe(0H.) + 3H SO 




: . Fe (SO ) 




+ 6 H O "•. " . ■ 




323 


C*(4;-.3)=--"2N3- + 2H 0 > 


2NaOH 


■+■ H " 








32 4 


C*.<5»3) = ,; 3M£« + N > "' 


Ms2 N " 










330 


C*< lfA>^ t 2Hsi : + - 0 2 


mo " 










331 


C*(2»4>=" 


C H 0 h 30 • 


> 2C0 


1 + 3H 0 : " 








332 


,C*(.3y4).='" 


3FeCI , -f 2Na PO 


-T- > 


Fe (PO ) 


•f 


■ WaC.i sf :': ; V."-. 




333 


C«'<'4y4->- a 


CaC + 2H 0 ~ 


> C ' K 


+ Ca(OH) 


II 






334 ■ 


C* (5.4) = " 6N3 0 ■ .+ P 0 • ■ 




PO " 








38.0 


RANDOMIZE 














381 


I = (.1 N T ( 4* R Nil f 1 ; 5 ) ) \ C 1*0 








, * ' • . ■ 





384 IF Z.'l.~i .THEN IF' I=?0% THEN 380. 

3136 IF Zl-2 THE if IF I^JZ THEN .38 0 ELSE IF I~V1% THEN 380 . ■ ; 

388 IF Zl~3 THEN IF' 1=0% THEN 380 ELSE IF I -01 %- THEN 330 Et.SE IF I*V2% THEN 380 1 

390 IF\ Zl-4 THEN IF 1=0%. THEN 380 ELSE - IF I-Ot/S THEN 380 ELSE IF I ••- 02% THEN 380 ' 

ILSE 'IF • 1-03% THEN 380 . , ' . ■' ■ '■• • ' -., 

400 . FOR J -3 TO 4\Q'1«Q1+1.\PR'INT\PRINT " PROBLEM "• Q1\IF ■ Q:l.<:l.() THEN PRINT " 

nm_ ■ * •else •••print--.*- '•-•■••.'••-. . A 

405. ". PRINTXPRINT A*< I ■> J) XPRINT B$ ( t y J)XPRINTXPRINT BI*5 . ' ' . .;> •' -'. '••• .;■'/ ■ 



110 IP J~3 THEN,. IF I -5 THEN .700 EL,SE,.72_a__ ' ' '* 

4-15 IF J~4 THEN' IF I«i 'THEN 7.0.p ELSE IF' 1=5 THEN 700 ELSE 720 \. 
300 IF J=33 THEN S;04 ELSE 507 : ; - : . ■ ' • '. '-•' 

304 . IF N%<>3; THEN 800 ELSE IF ,M%<>:L THEN 800 ELSE IF F'%0'1 THEN 800 ELSE-, 900 ■ 
307 IF . 1=1 THEN' TFvN%<>2 THEN 800 ELSE IF M%<>1* THEN 800 ELSE IF P/i<>2 THEN BOO- .E 
USE 900 ' '' ' . .••.'•..-. 

508 IF HZ%>6 THEN 800 ELSE. • IF H%<> 1 THEN 800 ELSE IF P%<>4 THEN 800 ELSE 900 . 

509 -IF J-3 THEM 520 ELSE ' 530 . . ■ .' ■ '/ 
51,5. IF J-3. THEN 520 ELSE 530. ' • ' • . . 
3*20 IF. I<3 THEN 525: . 

521 -IF T;=3- THEN 522 ELSE 523 

522 IF N%<>2 THEN 800 ELSE IF. M'%<>3 .THEN 800' ELSE IF PZ-Ol; THEN 800 ELSE. IF, Q%<>6 : 
THEN 800 ELSE 900 • • ^ 

523 IF N%<>2 THEN 800 ELSE IF M%<>2 ' THEN 800 ELSE IF P%<>2 THEN 800' ELSE IF Q%<> 
i- .THEN 800 ELSE 900 . ' , * "' , 

525 "if-'nxoi them 800 else . if m%<>1 then 800 else if pzol -then 800' else if q%<>2 
then 800 Else 900 . '..-'■"•' ; .. 

5 3 0 i f i " ! 2 then 5.3 2 else ie 1*3 then 534 jelse 536 ' v - \ ,. 

33'2 : if v n%oi' then 800 else if. m%<>3 then 800 else if.' p%<>2. then . 800 else if q%<>3 . 

then 300: else 900 . ' ■- .-. - . ■ " " • 

534 if n%<>3 then 800 else if m%<>2 then 800 else if. pi(> 1 then 800 else if .q %.<:•', 
>6 then 800 else. 900. . * ■ " . . ' . . 

536 if mxol then 800 -'else- if' m%<>2 then 800. else if p%<>1 then 800 else if 0%<>1 
Them .800 else 900 ' - - • 

600 FOR. J™ 3 TO 4\F0R I ■■- 1 T 0 5 ' l : ' »-'7:\...- . /,- 

602 " PRINT UNBALANCED c~-~---'-r--->'; J .: . ' * ■ ' ' ' - ' 

604 PRINT TAB (27). " A'\> ( I y J ) \PRINT TAB (27) ' ' B$ < .1 v J ) \ PR-INT , > • • 
6Q&- PRINT '"*******•**••'• BALANCED — >* 9 ' * 

607 PRINT TAB/30 ) ' ' < I y J > NPRINT . TAB ( 30 ) ' ' B$ < I y J ) \PRl NT • " '. • • ' . ' 

608 NEXT I ' '• ■ , -.' - ■ ,: . ' . 
610- NEXT J. '■" .,: , ' . -. . ■ 
8.1.1. GOTO 30Q0 . - ' : . . . . 
700 INPUT " ■»NX.»;M%>P%-. ' ' . ' 
710 G0T0\ 500 

720 INPUT " J N% •/ HZ •/ P% y Q% ' 

725. SOTO 515 ( . • • 

800 PRIMT\C1~C1+ 1 . 

802 IF CI"! THEN PRINT " YOU ARE INCORRECT. TRY. AGAIN. " ELSE PRINT " r : YOU 

ARE WRONG 'AGAIN > THE CORRECT ANSWER IS — '-— ■ ' : . • /. 

80-4 -TF Gl~l. THEN 410 -ELSE . PRINT D* ( I y J )'\PR INTXPR I NT " ' THE BALANCED EOUAT 

ION IS AS FOLLOWS " ! / 

806 -PRINT TAB < 25 ) "' ' C-i!> < I i J ) \P.RINT TAB (25) ' r 'fi$ ( 1 >J ) '; .'.';'..• " 

808 C:L=0\NEXT >.l ' •' . .' ' ' ■ - • , . ■ 

8io zi~2i-fi; •;. •"• ." ■ ■ • ' , 

812 ly'RINT \v t'F .Zl>4 THEN /PRINT */■ '. YOUR SESSION HAS ENDED ♦ PLEASE CALL THE IMSTR : . 

UCTOR, "\PRIMT\GCTO 600 ' • 'i - \T' .'■'. ... ■■■>.:>■■'■■ 

314 IF Zl^l' THEN ELSE.. IF - ■21. =2 Tl-\0l : Vl%-I ELSE,".I.F '• Zl*«3 THEN • y2%«I ELSE IF Zl 

••^4 THEN 03%--- 1 ' .'-'f' - ; ' ' : ■ ? '•''.,•'" ■'•<■?■' ■ 'A ',' 

816 GOTO 3Q0 , \ . '•" . •• . ^ : * : • . ; . .. ' 

900 PRINT A Lit .' ' :.'-. »* .. ■ . • ; ■ ' '.'■'."•', 

902 GOTO 806.r •'''•,{■.'.-• \ ■ ' .- . 

JO 00 END • ' ■•■ /•••'''-" • •' .", ■ ' ..v- '-. • '•; • • 
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ERLC 



EQUAT4 09*19 . . 19-^^1— 77 ' : " ■' "\ 'A 

<!.. REM- THIS IS A PRACTICE. SESSION IN BALANCING CHEMICAL EQUATIONS. 

2 ! THIS PROGRAM HAS BE EN --DEVELOPED BY 
t QF HOSTOS COHMONlTY COLLEGE/ AND "WAS 
lENOE' FOUNDATION . ' ■ ■ 

3 PRINT\FRINT\PRINT . 



dr. Julio gallardo? and mr. steven dELgado 
subsidised by a grant prom the national sc 



4, INPUT 
5* INPUT 



AFTER 
AFTER 



THE 
THE 



TYPE 
TYPE . 



YOUR 
YOUR 



NAME. ' 
SOCIAL 



i A1*\PRINT • 
SECURITY- NUMBER. 



IS/ " Al*5 ' 
" . ARE THEY 



r A N D Y 0 U R S 0 C I A L S E C U R I T Y N UM B E R " \ P R I N T 
CORRECT? TYPE ' Y '. F 0 R ° Y E S OR . ':?> N ' • F 0 R NO . 



ONLY ! .' ! ! P" \PRINT \G0T06 



?A2H>\PR 



QUESTION MARK (?)'» 
QUESTION MARK <?J ? 

INT 

6 PRINT " YOUR NAME 

7 PRINT ■'• ISr .": A2$ 
G INPUT A3$ \ PRINT - 
? IF A3*- =■ "fl" THEN 3 •• 

IF A3'$<> '• Y THEN PRINT " TYPE Y ' - OR A' N' 
59. DIM :A*<10 ? 10)\DIM B$( 10* 10)\DIM '0$ (10 r 10) 

60 Di (1 ».5>'4'- '"' 1 » 2 ?.2 r£»\D$ (2? 5 ) ir2ri$ 4 0 \ D$ (3 1 5>~ "1 , 2*» 1 > 1 " \Dt> < 4 ■> 5 ) » " 1, 1 71 'AD* <5>5 ) 

i .. i •; i " . •/ ••. a/a •. -. -. 

63 Dili ( ,1. „<$ ) » • 2 y'li ,2 " AD* ( 2> 6A~ " l'» 1> 2> 1 " \D*&3 >.6-> f '" 3 ,2tl >6." \D*'< 4 r 6 ) 2 » 1 , 1 rl A " \D$ ( 5 , 6 
'),»" :L7 y 2 ? .l6ri;8* "- A / - ' : ■ : A 

99 A:l. $ " CORRECT'!'!'! .•■'\B1* = "• WHAT ARE THE CORRECT. COEFFICIENTS- " ' ; - 



1,60 
.1.61 
162 
163 
164 
1.65 



A*.U i. 5 )=■•"" Sta 0 ' 
•S'frUrS)"" "2 3'' 
At* 2r &>»»". TiCl 
B*.<2»5)"? • ' \ .4 ■ 
A4(3.y 5 )••=."' Pb f 

1 6 6 * A I> ( A -j 5) ■-■ " N l-l ' 
L67-B$ .(4'jS ) = •'■' 3. 
Af <5:.>3>--": H;:iO 
B;r»<5/S>.= " 
A$-:Ly6)-" Na 

B$.ci.*6>"" 

A$<2?6 >=•-" CaBr 



Ms OH 



> 



NsSbO 



1 63 
169 
175 
176- 
177- 
173 
179 



.+ 







2 


+ H 0 


-— > TiO ; 


' •+.'. 




2 . 


n 


MCI 


PbCl,; 4- 


H 


HCI '* 


NH. CI " 






4" 




SO ' — 


MjJSO " ' 




' 3 


4" 




CI 


NaCl " ' 




" 







HO' 
6" 



HCI 



A i> ( 3 ■> 6 ':> " 
180' D'5.< 3 " 

131 A 5< 4/6) = " 

132 B:5 (4 ? 6: = " 

133 A"iH<5«'6;)-r" 

134 B*<'3»6')=*" 
540 .CIS ( I ».3) = " 
341 ; C*<.2?'5')»» 
342. C*<'3*5)'=* 
343 q*< 4»5)'=" 
3 44 ;:$<5 ? 5)~" 
350 C.$-: i t6> 

C* <2»6) ; 



Ca<OH) 



HCI 



■ l-l 30 ' > 

2 4 ., 
■ + H PO ■ ' 

3 A ■■ 
CaCQ --- — .-> 



l-IBi 



CO 



Ca 



CaSO ' 
4' 

(PO ) ' 
3 4 2 
H 0 + 



+. 



H 0 

<3 ii 



CaCI 



0. 



+ 



351 
35'2 
353 
354 



Sb - 0 
TlC I 

Pb 

NH ' "+' 
" . MdO f 
"2Na f 
"CsBr H 



C, H , — — > . CO + 
, 3 13 

2N&0H :•> 2NaSbO^ 



0 • - — - 



TiO. 
PbC I .v 
NH CI " 
MsSSO " 



+ 2H 

2HC.i t ' 

HCI - ' . £ 

so 

CI ■ -- 2NaC.L. 
• H SO ' ----i' 2HB r 

. f '., 2H PO ■ . > : 

;t:acQ - " i* CO 

-ii- 16'GQ 

5 ) )'\C1==0 
330 "• 
330 ELSE 
333) ELSE 
■38VSELSE 



+ 



H 



H 0.* 
2 "■ 
f H 
4 l-l CI " 



+ 

Ca 

f .;: 



CaSO 
(PO ) 
H 0 + 

- . 18H 



61-1 
CI- 



0 



IF 1 
I F 

w 



I==VJ.%. T.HEN^-380: 
I=VtaC- THEN 330 ; 



4 33i 

I^V:l% THEN 380 



ELSE 
ELSE* 



I F 

IF- 



"02% •THEN 
/ V2X THEN 



C.*'C3.*.6>= a 3Ca((JH) 
CiS/4?6> = "2HCI 

(:•*• 5/6)^." i /b f . 2c; h 

530 •.'R^NDOMIZE\I--'( IMT ( 4*RND. f l 
53 4 i'F.^l ••",:!: TF;EvI IF V%=* 1- 'f HEM 
JS 6 . I F- 2 1 a-2 T H E N I F I ~ U 5 T HE N 
533 ,I.F ■Zl'-'-CS' THEN IF... I~V% , THEN 

:;-3 o: -vi - ■ .3 1-4. ' j-hem ■ i ■■ w% then 

?LS,E'' IF I~V3%- 'THEN -'330 ' 
vOO-.FCR . 5 TO 6\0:!.^01 -.i. RINTXF R IN T 

:';K"' ELSE PRINT "3 
PR I N T \ P Rl NT-. A i ( 1" » J *'v R I N T -B ^ v I ■> .J ) VP RT N T \ PR I NT 
510 IF" .J =f5" 'THEN' 'TP I<4 THEN ;.72p ELSE 700 .'. 
tkZ "F ;.;-i:6 TWIIM IP\7L : ~1 THEN 700 . ELSE IF I : A4 THEN 740 

/"»r '3 ;j=:L.TjB!''30^- ELSE. SSS. .. . / . ,•./;.;, ,:. '. 3 - , ./ 

5 FRir '^ <>MS ' \ HEN ELSE.' IF M%<3P%- THEN 300 i ELSE 7 : ;tF - M/i ■■:;>! . THEN ' 8p0 -ELSE* 900 

^^J^ 'N%,<>2 vTHEN 8^0 .ELSE IF : M%<>1 THEN . 300 EliSE. P%'<>2^HEM."W# .'EL$E3-S?06: 



380 • 

380 



. PROBLEM " 
Bliii-3 



Q1XIF Q.L< 1 0' THEN PRINT.: 



ELSE 720 



3: 



3l'5. IF .-.J=6 THEN 525. ELBE IF I~ 1 • "THEN 5 :L 6 ELSE. 1' F . TI4EN 518. ELSE. 1%. t*3 . THEN /52 

0 . ' : ' • •- - ■:" ; • ,, .7- " ' ■ J . ■ 

5:L6 "IF Nyvoi THEM- 800 ELSE IF' M%<>2 THEM 300 -ELSE IF.P%<>2 THEM BOO ELSE. IF QX'Ol 
THEN 800 ELSE . 900 ; •:. * [ 7 ' . • -i. . 1 : '■■■"/■'/ 

318 IF-NSp-1 THEM 300 ELSE IFMZ<>2 TTfEN 800 ELSE Iff ' R/i-O-L THEN 300' ELSE If' Q%< 

> 4 THEM 300 ELSE 900 ' 

520 IF ' r W<>t THEN 800 'ELSE' IF M%<>2 THEN 800 ELSB'IF THEN 300 ELSE. If/ Q%O.J. 

•THEN 800 ELSE 900. ' . '- . 1 

525: TF. .'I~2 THEN 527 ELSE IF 1.-3 THEN 529 E ,_SE IF I«S THEN 531 

527 : '""IF - M%<f>'i THEN 800 ELSE IF M%<>^t THEN .3 00 ELSE IF P%<> 2 THEN. 300 ELSE/ IF ti%<>, 

1 THEM. 300 ELSE .900 ■■'■<-'.': '>',.•■ / . / ■ 
529 IF NX<>3 THEN . 800— ELSE IF M%<>2. THEN. 800 ELSE IF P%<X1 -THEN 800 ELSE/ IF Q%;0-6 ' 
'. THEN 300 ELSE .900 ■ . '.' ' ' — . ' . \ '■■ • ' 
331; IF H"{,:017' THEN '300 ELSE IF M%<>2 THEM -S0O - ELSE IF PZ<>16 THEM' 300. 'ELSE IF QZ< 

>;;.3 THE.N 800. ELSE 900 • * :. ' >. '. ; ■'. 1 Y «". • \ 7. . .. 7 L7 ..'7 ....''• ■ X 7.7 % 

340. IF7\>>X>'2 THEN 800 ELSE IF HXOI THEN 800 ELSE, -IF-' PZXXl THEN -800 EL/SE'/ IF Q%<>! 
.'MH EN 300 ELS EI F ' R % <: T H E N '8 0 0. ELS B 9 0 0 ' • • . ' 
600 FOR., J~. 5 • tO <S\F0R: I - 1T0 ..S \ 7- X -X7X.A, 

602 PRINT " UNBALANCED ------- > \i ' 

604 PRINT: TAB (25 ) ' 'A* < I tJ ) XPRINT TAB « 25 ) '. ' '!B% < I vU ) XPRINT7 

606 PRINT BALANCED . v — » |.' 

607 PR-IN 'f TAB < 30 ) '• ' C* < I » J ) \PR.IMT T A B £30 ) 7 7B %. ( I / J )\PRINt.it.. 

603 NEXT I " 
6.10 NEXT "J 
ill GOTO 300.0 • 
7 0 0- I M P U T ■' ' v M 2 •/ M % •/ P % 
710 GOTO. 500 , ' 
720 INPUT ' ' JN%>MX»PX-»QX 
723 ' GOTO '515 ./ ' . • ■ •' . , . 
■>40 INPUT ' : ' JN%'?rt% ;"P% yQXyR^ 
7.45.- DDT 7 5 70 7 . • ' - 
'6' 0.0 ■ PK''Ii*!'|f\C 1 : =C L f I. '. " ' , 
702 . IF C 1 ■■■■ .1 THEN PRINT * 



Yt 



:lse print 



THE 1 BALANCED EQUAT, 



E. INCORRECT V TRY AGftli 
' Y0.U -. ARE WRONG AGAIN > ■ THE . Cori'REdT ANSWER IS7-------r / --/-r; 

304 IF CI «1 THEN 410 ELSE PRINT DI> ( I , J)kpRIMT\f'RINT '■'/•. 
ION IS A3 FOLLOWS:."' . ' ' . ..V". ■~' r '■'■■] 

305 PRINT '" - '■ 

306 PRINT TAB <.25.).'> C* (I / J ) APR I NT TAB ( 25 1 ' ' B$ ( I ■/ ,'J : ■)' 
308 C1^07NEXT J . : 

3. !.'0-' Zl.-7t'lF.l.\ i pRIMT\.IF Zl>4' THEN. PRINT . " '1, YOUR ,3ESSI0N HAB ENDED, PLEASE CA: 
L .... THE INSTRUCTOR » " \PRI NTXGOT'O . 600 - ••. •/ 7; * ' 

314 'Zf tl"~l THEN -ELSE IF 72JL-2 TH|IN. jyiX = 'I' .ELSE ' ;t'F Zlii THEN V2%^. ELSE IF- Z:l. 

4. THEM 03% ^1 ' . ,'*'<•(«• 7 x , 1 

315 GOTO 330 ... " , 7 '. ., •'•'' 
S'OO; PRi'MTXPRINT AI^XGOTO 306 - . 

3000 .END;; , : 7 -. . ... •••'-'•; _ 



ERIC 



32 



EGUATS .0?t3fl ... ' ". ". 1?-ApV~77 

1 REM- THIS IS A PRACTICE SESSION 'IN . BALANCING" '' CHEMICAU EQUATIONS. 
2.1 THIS PROGRAM HAS B E E N B E 0 E L 0 P ED BY BR,/ JULIO B ALL A R BO ? AND MR. STEVEN BELGABO 
AOF HOSTOS COMMUNITY COLLEGE :> ANB' WAS -SUBSIDIZED:' BY A GRANT FROM THE NATIONAL SO 
IENCE FOUNDATION. v . '. : .:.'- • 

3 PR I NT \ P R I N T \ P R IN T : '■.;"■' .- ' - '. 

4 INPUT " AFTER: THE QUESTION MARK .(? ) , T/YPE 'YOUR NAME . "'5 A:l. $\PRINT 
? INPUT " „AFTER : THE QUESTION MARK <?> „ JYPE YOUR [SOCIAL. SECURITY NUMBER. ■ rA.2*\PR- 
INT '. \ 

6 PRINT \" YOUR NAME IS?. " Ai'*j-.* , » ANB /hDUR SOCIAL SECURITY NUMBER "\PRINT 

7 PRINT- S IS? A2* »» ARE THEY CORRECT? TYPE lY' FOR YES OR'^N' FOR MO; 

8 . 1 NPUT A3 $ APR I NT . • "'...•-. / '•'-• 
? IF : A3*' ~ "N" THEN 3 1 ." / '. '"'f'l t 

10 IF A3*.<>, "YVTHEN PRINT " TYPE ' YA OR ' N ' ONLY !.'!..! ! ! " \ PR I NT \GOT06 

59 DIM * A* (1 0 ft 0 ) \ B I M B* < 1-0 v 10 > \DIM C$CLOylO) • - ' ! • : ■ • v r. 

60 -ja*'< 1 v 7 ) « "4*3>3 " \D« ( 2> 7.) « " 1 &tS)3*\**tZt7i'»i&l i 1 ,1 " \B$ (4,7 )V"'3> :U 2 * 1 > \D* < 5, 7 

> "i 9 1 » i *5 * ■ •. './ ".. ' :/ -. •' ■ ' - 

63 D* C 1>8 >'=*"6 7 6 > 1^6" \D$ (2 ?8 ) - " l'» 5 > 3 , 4 -\£i$ (3-/8 '1 2|y 3, 2V 2 " YD* < 4r8 > ^ " 2 Vl ? 2 " YD* ( 5 .3 ) * 

"2/3vl!-6V -.■ • 

99 ; Al'li " CORRECT ! ! ! »\B1* - " WHAT ARE THE COlfRlECT COEFFICIENTS 

1 90 M> < 1 ? 7 ) /=-" N H +: 0 > \- N -f H O " 

191 Bi6<,l77) = » ... 3 '•'. ■, 2 . . 2 " ' 2" 

1.92 A*(2r7> = " H PO +- ".' NaOH '•'-- — £ Na PCK '•" + 

1.93 B$(2y7) = "- 3 ^ .. Y ..-'. 3 4\. 

1 ?X; "Am 3 1 7 N " ■ N sCl f -AsJNO > N a N 0 v +. 

l9'S BmZ>?/>r* 3 

196 A*<4/7)=" NO + 

197 B$<4y7)==" ' *2 ' 
193, A*<S»7> - «". PCI f 
199 B*<5?7)-==" 5 

205 aV<i> $>.»•" h o :'•+ 

206' B*Cly8>.= " 2 
207-;Atof«y»"-:;c H . f 

208 B$C2!?8)«» .38. 

209 . A'*"<3>8)~"- ZnS 4- 0 

210 vB*c3»e').=" :•• 

211 A$<4?3)=" Ca + 0' 

212 B$'(4 78)«"; 2 

213 A*(5?8)^" A.L (OH) f 
2.1,4 BiMS^a)^" . 3. :.r. 
360 - G$(l77)=:"4NH - +' 30 



H 0 
2 

•H 0 

2 
C0~ 



3 

.- > MNO + NO " 

V 3" 

> ■ W- PO .*.+ . II CI " 

3 4" 

> • C H 0 • + 0 " 

6 12 6 j 2" 
^ CO ■ + H 0 " 



H .0. 
AsiCl ' 



4 



_ .-:.>• 



K SO 

2 ; 4 
— — > 



ZnO + 

CaO ».; 



SO 



2" 



KOH 



6K0H 



Al (SO ) -f 
■v.-' -'■ . ■, 2 -4. .37 " 
2N + 6H 0 "•. 

361 Cf> < 2 y 7 ) ■- " ,H PO 1 3NaOH : r " Ma PO + - ; 3H Q " ' 

3-62. C'*<3V7">»'- NaCl- .. - A«3N0 . NaNO + A&Ql "" - 

363 ,CU<4?7) = "3N0 , f -i 0 . 2HNQ + NO " 

564 C<W5?7) =" P CI' -r H .0 — — r H PO + . 5HC1" 
3.65 C$<ly8)-*6H 0 .+ sCO . > : ||, o . f 60 " 

566 Ct><2» 8 > = " C H + 50 -r> 3Q0 f ' 4H 0 " 

567 C*(3»8)af"2ZnS + 30 •■ -> ZZnO + 2S0- '.' ■ 

368 .C*'(4r8')=?'"2C3 f 0 - 1 2CaO " 

569; C$ <• 5 f 8 ) - * 2Al ( OH ) • + 3K SO — ^ A 1 (SO ) '- 

380 R A N D OM I Z E \ I '- ( I N T ( 4*RND +1 . 5 ) ) \ 21=0 

:'34 IF :Z1-~ : 1 THEf>l.' IF\ THEN '380 ' V 

>b'6 IE' 'Z:L==2 THEN. 'IF'' .THEN*" 380 •' ELSE. 'IF I-Vi% THEN 330 •- ^ '■ ' 

583 IF Zlv=3. TflEN I.FI~V% THEN 380 E_SE IF THEN '380 ELSE IF I~l '2% THEN 3? o 

590 IF Zl=4 THEN IF ..I=V%- THEN 330 ELSE. IF I=Vi% THEN 330 . ELSE. IF I : -'v'2% "THEN 38t 
•ILSE IF I~ V3% THEN - ZB r . . ■ : ", ....'• ;"'--."•':' •:,■ ' •. V«" -' ' .•'".. 

FOR J-7 \tO 8\Q1%==C .X+l%\PlHNT\Pp;T|,if - ; • PROBLEM ". ; Ql'^XlF Ql%:"lo THFN PR I 

ih-PRmr^mnni,: ^f¥T...^,::, RINTXF isfi& 5 ^" • . : : ' : 

1:10. IF J»7, XHEN 70.0 ELSE IF*. J«8 THEN IF I« 4 THEN 720 ELSE 700 

i()d IF N^<>2THEN 800 EL "E IF M%<>1 "HEM, 800. ELSE IF P%<>2 THEN* 800 ELSE 900 

•ERJC^ 7 Th£n " 5i2 *^ LS£ '" 520 . 33 x - 



3:1:2 'IF.' I~l TI#N ; : 5:L^f ELpE IF 1-2 THEN 515 ELBE TP 

513 & N%<>1 JHEhtf&QO .'ELSE IF M%<>.i THEN BOO : EL<|> 
THEN • 300. ELSE 90*0 



|*3 'THEN 516 ELSE IF 'I»4 THEN 51 
J IF P%<>1 TH EN -800 ELS E IF QXOS 
IF P%<>2 THEN 800 ELSE IF Q%<>6 



314 IF N%<>4 THEN •'800 / ELSE IF M%<>3 THEN ' 800 'ELSE 
THEN 800 ELSE ftio v ■ ;; '' •'■ 

315 IF UZQ-'i THEN- 80Q 1 EtSt^IF -M%-Q-3 THEN 800 ELSE I IF P%<>1 THEN 800 ELSE: IF GJ%<>3 
THEN 300 ELSE/900' / "• '• " 

316 IF N/iOl THEN 800 ELSE IF. M7.01 THEN 80.0 ELSIE 
THEN 300 ELSE 900 • 

3.17 .IF N%<>3/ THEN 800 ELSE IF W7.0X THEN 800 ELSjEIF P%<>2 THEN^^O .ELSE .IF 0K>1 

THEN 300 ELSE 900 
3-20 IF /HEN: 522 ELSE IF ■ 1=2 THEN 523 ELSE IF 



E-.IF ?%<>! THEN 800 ELSE IF QK>1 



IF P%Oi THEN 800 ELSE J?F 'QXO-6 



\t»3 THEM 524 ELSE IF I-=5 THEN 52 

322- IF N'%<>6 THEN 800 ELSE IF M%<>6 THEN 800 ELSE '-IF P%<>:L THEN 800 ELSE IF G%<>6 
THEN .300 ELSE 900 

323 IF N%<>1 THEN ,800 ELSE IF M%<>5 THEN 800 ELSlfc. IF P%<>3 THEN 300 ELSE IF Q%<>4 
THEN 300 ELSE- 900' . : ''■;,. ■ ! ' : ( • . 

524 IF N%<>2 THEN' 800, ELSE IF M%<>3 THEN 300 ELSE, IF P%<>2 THEN .Qpo' ELSE IF Q%<>2 
THEM. 800 ELSE 900 

525 IF N%<>2 THEN 800 ELSE IF N/;X>3. THEN 800* ELSE 
THEN 800 ELSE 900 , 

600 - FOR J~7 TO 8 
iOl f^r :L~1 to 5,-, 

ii02 ■'■'pjkim " UNBALANCED —---—*.-•->•■» 

504 PRINT TAB<25) "A*<X'>J)\PRINT.- TAB.( 25 ) " B* ( I ■* J V^PRINT 
S0.£ PR I NT* • " BALANCED. .—-vr-->* ? 

S07: PR I NT TAB < 30 ) ' ' C* < I » J ) \PRT NT : T AB ( 30.) ' ' b£( ,1 , J ) iPP I NT 
S03 NEXT I .; '.'',. .' • . »'■ 

!>io next ' j •, ; \ r ■ • • ■ ■/ ,■ •••• 1 J" ■ 

ill GOTO 3000 ••,.'.•"•' 
£'00 ■ I N P U T " . ' 5 N % ; » M % v P % * Q Z 
y.iQ GOTO 510 • • : 
720 INPUT ' ' i^AriiXvP"/.. 
722 GOTO 500.. 

3.00 PRINT\C1~C1+1 '""* •:. 

3.0.1 : ' If' G 1—1 THEN PRINT " . VOL ARE INCORRECT 

" .YOU ARE i Wi\0'NG AGAIN ♦ ' THE CORF, XT ' ANSl-ER IS 
30.2 IF :C1"1 THEr 4:1.0 '■■ ELSE ' PRINT , D$ C I ? XXPRXN" .PRINT 
ION. 13 AS follows: ;' . '•, -.. ' ;c 

30p ' PRINT" TAB(25) '*t*CI » J>\P= IK""" 7 "AB ( 25) '" B$ X - J). 
»03' ! ' Ci^\'NE.Xf J '-, ' v 

3 1 0. ' 2 1 a Z 1 +f% PR I NT \ I F 2 1 > 4. T H E N R I M T { QU R, 5 

f'HE INSTRUCTOR. ''XPRINTX'OGTO 5 r= ' '•> ..' . 

312: IF- Zl-1 THEN V%=i ELSE "Ir Z..*2 tfgzfytyH?" ~-l 2LSE : 
4- THEN 03%~I7 • ' '"'?'/' -> 4 . 

3:1.6 G0TQ330 7 . : > : ' 

H)0-., PRIRTXPRINT .' A:'L*\SHS+.l '■ : ' : 

?.C2' GOTO 306 *'*:.'■ f . . : 

3000 . END /, ■.. '•' • < 



TRY A3 AIM. 



.SE PRII*T 



THE BALANCED- EOUAT 



SSIO: HAS EN3E: 



PLEASE CAL 
J ». 



.iZ-l-«c THEN 02% ^ I ELBE IF.Z1-- 



CHE708 lit 30 22-AFT-77 

2 REM- - THIS IS A PRACTICE SESSION ON* STOICHIOMETRY ................... 

3 ! THIS PROGRAM HAS BEEN DEVELOPED. BY DR. JULIO GALLARDO AND MR.' STEVEN DELGADOr 
OF HOSTOS COMMUNITY COLLEGE » AND WAS^SUBSIDIZED BY A-UGRANT FROM THE NATIONAL SCI 

ENCE FOUNDATION* " v. .-> ", ' ' . - ■ 

5 PRINTAPRINTNPRINT « 

6. INPUT • ' ' QODE * " ?N1%\PRINT — 

7 PRINT\PRINT\PRINT\IF N1%=1 THEN 98:'.' - 

10; INPUT'' " AFTER THE QUESTION MARK <? j V TYPE YOUR NAME ♦ "JA1$\PRINT 

11 INPUT "..AFTER THE QUESTION MARK (?)V TYPE YOUR SOCIAL SECURITY NUMBER ♦ " i A2*\PR 

INT '. • \ '. f . •>:-■: ■ ■ . . : 

15 PRINT " YOUR NAME IS> " ?A1*? 1, » AND YOUR SOCIAL 'SECURITY NUMBER "\PRINT • 

16 PRINT " IS, "A2* ' ♦ ARE THEY CORRECT? TYPE' 'Y' FOR YES OR 'N' FOR NO. ' r 

17 INPUT A4$ \ PRINT * ' • ' - , . 

18 IF A4$ = "N" THENIO ■? ' 1 v. - 

19 IF A4*<>"Y" THEN PRINT '" TYPE ' y Y'\OR 'N' ONtkY ! ! > " \PRIN,T\GOTO 15 

20 Q* = ai$ + ■" + A2$ :•' .•••.v : ^\ ' ' : - 

21 R* SYS(CHR$(8%) +' Q*> 
98 PRINT\PRINT\PRINT 

100 A3* - ■* BASED ON THE FOLLOWING EQUATION ♦ >\PRINT 



131<EP$<1>3).= " 2 
133 B*<2>3)=" ' 3 

135 B$<3,3)=" 3 
137 B*<4,3)=" 
139 B*<5,3)=" 

320 C*,<1,3) = "> BaCl H 

321 C*<2,3)=" AI<OH) 
3f2 C*<-3,3') = "2Fg<0H) 

323 C*<4,3)="2Na + 

324 C*<5,3) = n 3M£t * 



4 2 
2 4 



2 



+* (NH ) CO 
+ : NaOH — - 
+ 3H SO — '-#>'■ 
2H 0 — -- > 2N30H 
N - > M<=$\ N " 



2 4 3 
2 ■ 

i ^ 

- . B3C0 

NaAlO + 
Fe (SO ) 
+• H * 



h 2NH CI 

2H 0 ■ : 

+ ,6H 



325 T9*< 1)= <3rams'\T9*<2> = 
liters" \ 

329 FOR Z%.*il TO 5\PRINT\PRI 

330 RANDOMIZE : . .' : 

331 Yl=< INT<40500*RND+3boOC 

332 Xl= < INT < S00KRND-35 ) )V1C 

336 K1=0 .. :m ' 

337 Kl==Kl+l\-OR L5=30 TO 4: 
332:. NEXT L5 

3~9 PRINT: :*v *«\lF Kl= . ,- = 
TC 337 .'• ' • 
545 PRINT\PR NT 



m'oles"\T9«(3) = " mol3s"\T9*("4r=" liters 



"\T9j$(5) = 



'1'00\Y2= ( li T C245C I 
(2= < I NT < 78-/.;cRND+=^ 



IB +25454) ) /I 00 

/l00\X4=( INT(42'56*RNr : 1542) )/100 



""'INT TAB ( _I ) " '- 
ELSE -INT 



B 33) 



'** PROBLEM "Z/£?V~R'I NT "**"\G0 



:t 



C*<Z% 3)\P : 
" HOU MANY 



TAB (15) ' 'B$<Z%r3)\PRINT 
3 OF BARIUM CHLORIDE ARE 



•EDEDt T 



346' PRINT TAi. <5) ' ' A3 9 
347 PRlNT\PR:MT\PRIr " T,ABC1 

350 IF Z%<>1 THEN 3c: ELSE 
0 "PRODUCE " " molss OF r 

351 PRINT " BARIUM CARBONATE' " ~ 

352 AX1%)=- <::MT(207C -*X'l)), . .. 

•$60 IF Z%<>2 THEN '365 ELSE --INT " HOW MANY - ILI3 OF SODIUM HYDROXIDE REACT WITH 
ALUMINUM HYDF.GXIDE TD PRODL II a ' ' . .„ , 

361 PRINT Yl 3 53 rams OF WA~I ' ; J ; > > 

362 A<2%) = CINTCYl/ -36) )/• )i '. a i- ivfji . , ■ 

365 IF Z%<>3 THEN 3.7 ) ELSE ="RINT X2 •* moles OF* SULFURIC ACID REACT WITH IRON HYDR 
OXIfiEV f HOW MANY WQLES OF :; ; . . : ? i { ' ■■':„■: ■■■„': ' 

366:;:'PRfNT " IRON '-SULFATE ,:tiiII_L -BE PR^DUtCED? " • * ■■■■ ■ 3^'' ■ » 



368 AC3% )f; ,( INT ( X2/; 03 ) ) /,10C • - • '•■ 

370 if z%<^ . tmen' 3^.5 %~lse •= ~ i»n- If y 

TH' WATER f HOy MANY L : :£ 

371' PRINT: HYDROGEN .v»I_L EE I-LLECtED "IF 'TH 
AND" ' - .. • 

jT^gf^INT X4 DEGREE? T J? 0 

ERIC 



' S iis . OF SOrauK.',A ; RE MA.DE -TO ; REACT, lit 



FACTION TAKES J PLACE A" 



I 



(74 A<4%>= <INT< <273+X4>*Y2#.i78372/Xl> >/100 . ' • 

(75 IF Z%<>5 THEN 379 ELSE PRINT' ■ HOW MANY LITERS OF NITROGEN ARE REQUIRED'tO RE 

iCT WITH MAGNISIUM? IF ' Yl - . 

176 PRINT " a rams OF ( Ma N * HAVE TO BE PRODUCED AT STP^ 

>77 PRINT " , , ■■■ f 3 2 " . 
(78 A<5%> » -<INT«Y1*22.4> )/iOO / 1 

(79 IF> N1%=1 THEN 385 

V$b PRINTXPRINT " i ./ 

(81 INPUT " ' YOUR ANSWER .IS --->• 5B<ZZ)\PRINT\PRINT 

182 IF ABS <A < Z% > -B < Z% > J >.03 THEN 500 ELSE 515 . • 

(85 IF Z%=5 THEN 799 ' >. .• ",- • « " 

$86 next z% . • : > 'J.. ; .v? , 

500 C1=G1 + 1\»IF C 1=1 THEN PR I NT -JL , YOU ARE INCORRECT -i TRY AGAIN . " 0 ELSE Pft 
IHT r YOU ARE WRONG AGAIN* THE CORRECT ANSWER IS -— 1-- "f 

301 IF CI =1 "THEN 380 ELSE PRINT A CZX) »T9$ < Z/£ ) 

302 C 1*0 ■ • 

303 GOTO 385 i \ 

315- S=S+1\Z* = • CORRECT!!!!,!! ' 

516 PRINT\PRlNT\PRINT Z-f ~ - ' . •> ' . 

317 GOTO 502; ; -'; " y .;: .r' : 1. ■ ■ \ ;r -''>-Vv ' :v ' • ■ ' ; 

799 IF Ni%=l THEN ,810 : " ":'■■■> * 

300" PRINT\PRINT\PRINT "* THIS SESSION HAS, ENDED. IF YOU WISH TO CONTINUE 

rO MORE DIFFICULT • ' ' * . ' C 

301 PRINT " PROBLEMS* TYPE THE LETTER 'D', AND THEN PRESS THE ' RETURN KEY . " f 

302 INPUT • ■ > H$ .". • . ' f v 

303 IF H*="D" THEN CHAIN "CHE718"25 , V ', 

505 PRINT\PRINT\PRINT • f \ ' ' . . 

306 PRINT ."" Al $ "/ HAS ENDED THIS SESSION AT ' TIME*CO> : V 

307 PRINT \PRINT" 3 Al* " ? HAS ANSWERED" S "' QUESTION CORRECTLY. "VPRIN" 

308 PRINT " THE FOLLOWING IS A LASTING- OF • Al$ 'S ANSWERS AND THE "." \ . 

309 PRINT * CORRECT ANSWER" FOR ' EACH RRO^LEM - 

310 PRINT\PRINT\PRINT\PRINT 

J15 PRINT TAB<5) " PROBLEM " ?TAB < 2~: ) "CORRECT A fSWER"? ■> ?• 

\\6. PRINT TAB < 50 1 " "Al* JNPRlNt 0 3 ANSWER" . - 

\£7 PRINTXPRINT , ' . . . . 

J19 FOR I%=1% TO .5% v s ' 

120 PRINT 'TAB <«) " I%?TAB<SO) ' // A<XZ)tT"F 62) " BCI«> v 
>22 NEXT IV. \ ' >.•' ' • . ' 

5000 END 

: ' -,. ■ • , • . "' ■:. • * 




2HE718 11J34 22-.Apr-77, ,v 

2 REM > THIS IS A PRACTICE SESSION ON STOICHIO.ME'HRY . 



3 ! THIS PROGRAM HAS 
OF HOSTOS COMMUNITY 
SNCE FOUNDATION. 
3 PRINT\PRINT\PRINT 
6 INPUT • - . 
IF Nl% 1 



BEEN DEVELOPED, BY DR» JULIO 
'COLLEGE.* AND- WAS,, SUBSIDIZED 



GALLARDO AND MR ♦ STEVEN DELGADO t 
BY A GRANT /FROM 'THE NATIONAL SCI 



7 If Nl% 

10 INPUT 

11 /INPUT 
INT. 

15 > PRINT 
i 4 PRINT 
INPUT 
IF A4$ 



THEN 98 
THE 
THE 



CODE * 1 ?Ni%\PRINT. 



AFTER 
AFTER 



QUESTION 
QUESTION 



MARK 
MARK 



(?) t. 

(?) 7 



TYRE 
TYPE 



YOUR NAME. "iAl$\PRINT 

YOUR SOCIAL SECURITY NUMBER* 



r A2$\PR 



17 
18 

19 
20 



' YOUR 
" .IS> 
A4* \ 
* "N 



IS/ 
. ARE 



NAME 
"A2$ 

PRINT 
•THEN10 .' 
THEN PRINT 



JA!**"* AND YOUR SOCIAL 
THEY CORRECT? TYPE .* ' Y '• 



SECURITY .NUMBER "\PRINT. 
FOR YES OR 'N' FOR NO. 1 



26 
29 
30 
31 
32 
93 
99 
10.0 
101 
103 
105 
107 
109 
116 
118 
120 
122 
124 
300 
301 
302 
303 
304 
310 
311 
312 
313 
314 
350 
355 
35 i 
361 
362 
*" 
363 
37,0 
371 
375 
376 



JF A4$<>"1 
GOTO 98 "'. • 

print\pri'nt\print . 

R$ =SYS(CHR$(7%)) . 
W=LEN.( R* ) NA1 $=MID (R$ t.Xt W-9 : ) 
H1=LEN (Al$) . • . ~ 

A2$=MIB(R* r Hl+1 r9) - ■". 
GOTO 15 

D'lty A(10) » .B<10) 
DIM i*(i0Vl0)\DIM 
A3* = " BASED ON 



TYPE 'Y' OR ' N ' ONLY! ! ! " \PRINT\GOTO 15 



C«f(10»10). 
THE FOLLOWING 



B$(lrl)=" . 
B*(2rl)=" 
B$<3»1,) = " 
B$(4rl)=" 
B$(5r 1)=" 
B$(lr2)-" 
B5(2r2)=" 
Bs(3*2)=" 
BS(4>2) = " 
B$(5r2)=" • 
C$(l7l)="2H 
C$<2»1)=' N 
C$(3rl)="4FeS 
C$(4rl)-."2KC10 
'C*(5fl)="3H S 
C*.( If 2) = "2N3C1 
C$(2»2)=V Ni 
C$(3r2)=" (NH 
.C$(4,2)="2KrF 
C$(5r2)="2C H 
FOR Z% == 1 TO 
RANDOMIZE • .« 
PRINTNPRINT 
='RINT " • 

:f zz<iq% then 



3. 



4 2 

11 

+ • 



2 



2 4 



EQUATION : 
o ■ 



2 3 
-> « . 



■\~RINT 



2.4 



2 7 



0 
3H 



110 



•> 2KC1 



+ 
OH 
10 



" 2HN0. 
+ H SO 
4C0 — 
Cr 0 - 
2H 



J?H ,0 a 
?2NH " 
2Fe 
+ 30. 
» 3S 



0 



8S 



0 - 

1-50 



+ 

-> N3 
Ni (CO) 
N + 

V 2Kr, ,,+■ 
— > 10C0 



2N0 
SO 

Cr ' 



, PROBLEM 
PRINT. " . 



Z7. 



•i/ *k ^ M/ Nl/ \ls \1/ 



4H 0 
2HC1 ' 

+ 4H 
4HF 

12H 0 ' 



'ELSE PR I 



<>K#>K. 



~RINT\PRINT ' ' - , 
1 = (INT(700*RND+100 ) ) /1Q0\U2= ( rf INT ( 71'0*RND+90 ) ) /lOO 
VI AND V2... ARE VOLUMES WITH VALUES' BETWEEN 1 AND 8 W 
il = (INT (4985*RND + 15>)/1000\M2=(INT(4987*R l!+13) )/100C 
Ml AND M2 ARE MOLES BETWEEN THE VALUE 5 AND 5 " 



DEC I MP 



W7TH 3 DEC!. iAL .PLACES 



380 H3=*(INT(.4000#RND + 1000) )/100\m~<. INT(40C 
1381 ! M3 AND M4 ARE MASS UNITS IN GRAMS BE" 
3a"s"'.MS? ( I N T 1 9 0 0 * R N D +"1 .5 ) ) /100\M6= ( IM < 905tfr 



+995) ) / .. 
10 AND : 

. ) •" 

MS .f^ND i'M6 ARE MASS UNITS BETWEEN THE A_ JE . OF . 0- 5 



" ? 2 LZCZttt LS> 
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3vo M7= ( TNT( 295ob>kRNri+ 1 or,C)C) ) ) /1 nn\MPi=V TXiTYi!. »AAn*PMri4.i hnr>r>^ v/1 fth> 



© urn 2 JECIMAL PL 



591 » M7 AND M8 -AR.E' #ASS UNITS BETWEEN" THE VALUE S OF 100 AND 400 WITH 2 DECIMAL 
? LACES ♦ • ' . , 

3.95 M9=(IWT(700*RND+100) )/100\M0=< INT ( 750*RNn+50 
396! M9 AND MO ARE MASS UNITS BETWEEN THE VALUE 
?AMS AND HAS 2 DECIMAL PLACES. 
400 IF Z%<>1 THEN 410 ELSE PRINT 
PRINT TAB(15) ' ' C* < 1 » 1 ) SPRINT 

PRINT • CALCULATE WE NUMBER' OF LITERS OF 0 . ("AT STP ) NEEDED TO FORM " Ml "MOL 



♦01 
♦02 
ZS* 
♦03 
♦04 
♦10 

♦ 11 
412 

♦ 13 
♦14 

♦ 15 



))/100 
OF 1 AND 



A3$SPRINT 
TAB (15) ' 'B*( lil) SPRINT' 



8 TO BE USED WITH KILOG 



PRINT TAB ( 36 ) "-£ "APR INT 
'A(l) = ;(INT(M1*1120) )/100^ 
IF 2K<>2 THEN 420 ELSE PRINT 
PRINT TAB (15) ' ' C$ ( 4 , 1 ) SPRINT 
PRINT 
PRiNT 
PRjENT* 
PRINT 



A3$SPRINT ■ 
T/AB ( 15) ' 'B$ (4» 1)\PRINT 



CALCULATE THE NUMBER OF MOLES OF 0 .PRODUCED BY^HEATING' 
B(35) "2" " v " * ; 



.M3 "<=!' OF" 



TAB 

" POTASSIUM CHLORATE 
TAB (25) "3VSPRINT 



(KC10 ) 



IF 27. 
PRINT 
PRINT 
PRINT 
PRINT 

A(3) = ...... 

IF Z%<>4 THEN 
PRINT TAB (15) 



> 3 .THEN 430 ELSE PRINT A3$.SPftlNT . ' '- • Y 

TAB(lS) "'C'*(l».: SPRINT TAB(15) "B$(l ,2)SPRINT ' • 

"IF* M3 "s$ OF AaCl ARE REACTED WITH" M4 "s OF SULFURIC ACID"\PRINT 
• (H SO ) ". HOt MANY MOLES OF Na SO ARE PRODUCED?" 
TAB"(3 ) "2 " » TAB( c ) "4 r 5 TAB (31.) "2 " » TAB ( 34 ) " 4 "SPRINT « 
(INT(M3*100/1_6.9 1/100 ,. . . \ 

44*0 ELSE P~INT A3$SPRINT ' , 

'C$ (5, l'),\P-;INT TAB(15) "fi*(5> 1 ) SPRINT , " •' 

'MOLES OF HYDROGEN SULFIDE GAS REACTS WITH AN EXCESS OF NITRIC 



435 
440 
441 
442 
VI 
443 



IN THE PRODUCTION OF" 



SAME TEMPERATURE AN 



416 A(2)?(INT(300*M3/228.9) )/100 
420 
421 
422 
423 
424 
425 
430 
431 

432, PRINT. " IF" M2 
ACIDy HOW " SPRINT ■ 
433 PRINT " MANY GRAMS OF' NITROUS OXIDE ARE PRODUCED? "SPRINT 
A(4) = <INT(6000*M2/3).)/lQQ < . , 

IF Z%<>5 v tHEW 450 ELSE PRINT A3$'SPR'INT ; 
PRINT TAB(15) ' ' C$ ( 2* i ) SPRINT TAB ( 15) ' ' B$< 2/1 ) SPRINT 
PRINT " HOW MA^Y LITERS GF NITROGEN GAS WOULD DISAPPEAR 
"l.OFVXPRINT -r ,, •; ^ 

PRINT " GASEOUS AMMOJIAr BOTH GASES BEING MEASURED AT THE 
D. PRESSURE? "SPRINT ■ ., * 

445 A (5) = (INT(V1#50) )/10Q " .,. . 

450 IF •2%<>6 THEN. 460 ELSE PRINT A3$SPRINT 

451 PRINT TAB(15) "C$(3»1)\PRINT TAB (15 ) " B$ < 3 > 1 ) SPRINT 

452 "PRINT • HOW MANY KILOGRAMS OF FERRIC OXIDE (Fe 0 ) CAN BE OBTA 

3"' M9 • . •: : 

453 PRINT. TAB(3<9) "2" i TAB (41 ) "3" . . • • 

454 PRINT " kg OF-FERROUS SULFIDE (FeS )? " 

455 PRINT TAB ( 27 )*" 2 " Sf;RINT 
A(6) = <INT<M9*4800/32))/100 V • • 
IF. Z%<>7 THEN 470 ELBE PRINT A3$SPRINT 
PRINT TAB(IS) '/ 'C$C2»2)\P.RINT t TAB(15) ' ' B$ (2 , 2 ) SPRINT 
PRINT 1 A" M4 "3 SAMPLE OF N'ICKEL IS" ALLOWED TO REACT 

"SPRINT ' • -• ' ■■ . : . v : 

■ PRINT " CALCULATE' tHE NUMBER OF MOLES OF CO NEEDED TO PRODUCE THE REACTION. 
='R1NT-" . . . - ■>. . .... , ' • , . 

465 A(7) = <INT(M4#6.78) )/100 .. " . 

470 IF Z%<>8 THEN 480 E-SE PRINT 
47i: PRINT TAB(15)."C*(-,2)\PRINT 

472 PRINT " CALCULATE TIE NUMBER 
DUCE'SPRINT 

473 PRINT. V2 "LITERS OF NITROGEN 
475 A(8) .' » (INT(27600*V2/22.4) )/100 . 
♦80 IF ZX<>9 THEN 490 ELSE PRINT A3$\PRINT 

♦81 PRINT TAB(15)/ 'C$ (- !-2)\PRINT TAB ( 15)/ ' B$ (4 > 2 ) \PRINT > 

♦82 PRINT " HOW MANY MCLES'Of HYDROGEN FLUORIDE "COULD BE PRODUCED BY THE REACTION 

© =?INT' \ , :'/'■ 

♦ EKJC tNT M2 "MOLES OF KRYPTON (Kr) DIFLUjDRIDE AND WATER?." SPRINT- 
»B9flW 9 ) :m i MNT ( M2*200 ) ) /1 00 




456 
460 
461 
462 
}K 
463 



WITH- CARBON MONOXIDE (C 



A|5*\PRINT • • 

lj«ft.B(15) ' / B$(3»2)\PRINT - 

OF- GRAMS OF AMMONIUM, DTCHROMATE 

AT STP. "\PRINT 



NECESSARY TO PRO 
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\90 IF Z2O10 THEN 600 ELSE PRINT A3$\PRINT . ' '' 

191 PRINT TAB<15) ' / C*(5"»2)\PRINT T AB ( 1 5 ) '■' B$ ( 5 » 2 ) SPRINT 1 

»92 PRINT " QALCULATE THE NUMBER OF GRAMS OF OXYGEN REQUIRED- TO BURN .' M8 "g"\PRIN 

r ■ - • * .. ' ■ • , ^ - - j ■ ' .. .-, ' ■ ' 

193 PRINT ".OF C H OH TO CARBON DIOXIDE. (COO AND WATER ♦ " . . 

194 PRINT TAB(5) "5" »TAB(7> "11" >TAB<33) "2'\PRINT\RRINT * .7 ' 
*95 A(10)'*= <INT<272,J.3*M8) )/100 '\ ' / 
iOO IF N1%=1 THEN 699 ELSE 750 ..}"! ' . . . ■ / - v / £ . 
>99 Ci=0\iF 2%=10 THEN 800 . 
700 NEXT 2% " ' 

'SO: PRINT\PRINT\INPUT ." YOUR ANSWER ~nr-- ^>">B<Z%) 

752-PRlNT\lF <ABS<A<Z%)-B<ZX) ) )>.01 TJHEN 780 ELSE PRINT •. CORRECT 1 !!!!!* < 
7-53 ' S=S+1\PRINT\GQTQ 699 r ... . \ 

78oVci«Cl+l\IF Cl=i THEN PRSkT 'YOU ARE INCORRECT* TRY AGAIN. 1 ELSE PRINT 
' .YOU ARE WRONG AGAIN . JHE CORRECT . ANSWER IS ~> -A<2%)r 

781 IF Cl=l THEN 750 I / - *' ' - 

782 IF Z%=5 THEN PRINT " 1 iters " Et.SE IF Z%=§ THEN PRINT "a rams" ELSE IF Z%~2 THEN 
PRINT "mole's* ELSE IF- Z%.=3 THEN PRINT ■moles" ELSE IF Z/f==7 THEN PRINT "moles" EL 

3E IF Z%= 9 f HEN PRINT "moles". , - .,• - 

784 IF Z%=1 THEN -PRINT "liters" ELSE/ IF Z'/.=6 THEN PRINT " Kd * "ELSE IF 27.^ THEN PR 
[NT"sfr3ms" ELSE' IF Z%=10 THEN PRINT » drams "\GQTQ699 ' . " ■ 

785 GOTO 699 

300 PR I NT\PR INT^PR I NT" " " Al* " HAS 'ENDED THIS SESSION AT* " TItiE,* < 05 " » "\PRINT 
301- PRINT " "Al* " HAS ANSWERED " S " QUESTIONS CORRECTLY ♦" \PRINT 

302 PRINT "HERE ARE THE CORRECT ANSWERS AND " Al* "S ANSWERS' " ' < 

303 PRINTAPRINT % V • ,» • » , * ., \ : . 

306 PRINT- ^^•TAB(8)>'PR0BLEM" JTAB<28) "CORRECT ANSWER" *TAB(58) "STUDENT'S ANSWER" 

307 PRINT TAB (8) - >K**>Jc>K** " ?TAB < 28 > " ************** " JTAEKS8) "**************** "APR INT* 
v. PRINT ■ ■ ' . . . 7 '■ ' . -* - ■ \ : ■ ,. 
310 FOR J%,= 1 TO 10 

311* IF J%<10 THEM PRINT "TAB (10) ' ' S/. * ELSE PRINT TAB<9)"J%*' '«'*•' "' 

312 PRINT TAB<32) ' ' A ( J%) i TAB ( 63) ' "B( J%) ' 

315 NEXT J% ( \. '•. 

5000 END . ••*•; . • " " . $ 



^esdy 



y ' 



- .4 



• / 
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JCHE808: 135 36 i?-A»r~7/7 - .-: '„ 

I REM THIS IS A PRACTICE SESSION IN , GAS LAWS, »»>>>>»>»»> . . 

2. ! THIS RROGRAM .HAS tBEEN" DEVELOPED' BY DR. JULIO GALLARDO '• OF HOSTOS COMMUNITY •' • 

• ^ COLLEGE » V AND WAS SUBSIDIZED BY A GRANT FROM THE NATIONAL SCIENCE FOUNDATION . 
5. ;iNPU-T -CODE ■ * N%VF'R];NT\PRINT\PRINT. ? a '. ' 

'6 ! N%=1 WILL 1 GIVE A PRINT OUT ^OF THE PROBLEMS WITH ANSWERS ■'■>' 
■? IF N%=1 THEN -49 .:■ -! ' ' '. ~i ■ ' . ' „ '~ 

8 ! Nl* WILL BE THE STUDENT'S NAME WHILE Sli WILL BE HIS SOCIAL SECURITY NUMBER 

II DIM A(15) >B(15) . • - . 

12 INPUT " AFTER THE QUESTION MARK (?) ? TYPE YOUR NAME. "?N1* 
1.3 PMNT - 

14 input " after the question mark (?), type your social security number. 0 i si 

15 print *•:/ ■ „ . 

20 PRINT " YOUR NAME- IS » "Nl* • AND YOUR. SOCIAL SECURITY NUMBER "\PR I NT 

21 PR-INT " IS» ■ SI* "♦ ARE THEY CORRECT? TYPE 'YES ' OR 'NO' . A 

22 INPUT S2*\PRINT ' • . . 

25 IF S2*='N0' THEN 12 ELSE IF S2*<> '-YES ^ THEN PRINT > TYPE 'YES ' OR 'NO' ONLY. "\. 

print,* ' . ; . . .. , * ' ■ • /■.::;■,• : . ■ ■ . 

26 IF S2*<>'YESr THEN ; 12 

49 zi=i . *.. ':• ■ ■ 

50 RANDOMIZE ' ' • * •' . s 
52 FOR Z= Zl TO 15 : .-- , . ' r . ■ ' • " 

55 T1*(INT(1000*RND +500 ) >/10\T2=; ( INT( 1000*RNrr' +400>)/10 „ • >' 

56 AND T2. ARE TEMPERATURES WITH VALUES BETWEEN >50 T AND 150 DEGREES "• 
58- P1-CINT(7000*RNB +500O) )/10\P2~ (INT ( 8000*RND+4000 )•) /10\P3»( iVlT ( 7000*RND==8000 ) )* 

/10 ■ : . .. .. . . / _ . .\"\. ' \ ■ ' ■• %f 

59 ! P1*P2»P3 ARE VALUES OF PRESSURE BETlJjEEN 400 AND 1500 • 

60 P4=(INT(40*RND+15) >/10\P5=iINT(43)tcRND+f6,) )/10 ' . 

61 ! PA. AND .P5 ARE VALUES OF PRESSURE IN ATM " '* • " ' , - 

62 V1 = (INT / (10000*RND+2000) )/10\V2^( INT(10000*RND+2000) ) /10\V3= ( INT (2*RND+1 15 ) )/10 
63! VI AND V2 ARE VALUES OF VOLUME IN MILLILITERS AND V3 IN LITERS ' - l 

65 Al*=" CENT I GRADE " \A2 $= \ FAHRENHEIT "\A3*=" KELVIN "\A4$= "' TORR ■ \A5*=" ATM"\A6*=: 
■ MILLILITERS ' \A7$== " LITERS 1 * 

66 A8*= ''DEGREES ' , '• , : '■ ' , 

68 PRINT\PRINT "' , PROBLEM • " Z\IF Z<10 THEN PRINT " ******* #» E 

LSE PRINT " ******* **". < '" \ .'■ \- ■■ 

80 DEF FNC(Tl) = (5*(Tl~32).)/9 ' , ' V ' " 

81 DEF FNB(Tl)=9*Tl/5 +32 V , .. 

35 A9$= ■ CORRECT MM! 0 . s ,\ 

87 B2$= • °YOU ARE INCORRECT. TRY AGAIN. " 1 ' 

88 B3*=" YOU ARE WRONG AGAIN* THE CORRECT ANSWER IS -■ > • 

99 PRINTXPRI-NT . " ' 

100 IF ZOl THEN* '110 ELSE PRINT " THE TEMPERATURE OF AN OBJECT IS "Tl 1 DEGREES' 
"A.l*" ♦ ' ; ■ .» •. ; ■ 

101 PRINT • EXPRESS THIS TEMPERATURE IN " A8$ ' ' A2* " . " 
103 A(l) = (INT(PNB(Tp*100) )/100 

110 IF Z<>2 THEN 11$ ELSE PRINT " A GAS EXERTS A PRESSURE OF" P1"A4$". *©IVE THIS 
PRESSURE IN" " > ■ ' - i 

III .PRINT A3*' . ' • . > . 
113 A(2)= (INT(l00*Pl/7.60>-)/100 • • 

113 I F Z<>3 THEN "120 ELSE PRINT. " WHEN THE TEMPERATURE OF A- GAS IS" Tl ' 'AS*' 'At* 
.■>» THEN" v 

116 PRINT • THE PRESSURE IS" : Pi. " A4$" .' IF THE; TEMPERATURE CHANGES TO " T2 ' 

117 PRINT ' 'A8*":A1$ WHAT WOULD THE NEW PRESSURE BE? " > ' 
118' A(3) = (INT( ( 100*Pl*(T2+273) )/(Tl+273) ) )/100 

120 IF Z<>4 THEN 125 ELSE- PRINT * A GAS OCCUPIES A VOLUME 0F"Vi"A6$ " WHEN THE T 
iMPERATURE IS" , ' ' f 

121 PRINT ' ' Tl ' ' A8$ ' ' Al* " . FIND THE: VOLUME WHEN THE TEMPERATURE OF THE" 

122 PRINT " SAME GAS CHANGES »T0 " T2 ' ' A8$ ' ' Al$"'-. ' • , , 4 0 
124 A(4) = (INT(lOO*Vl*(T2+273)7(Tl+273)).)/i0O > '. 

lg^^ ZOS THEN 130 ELSE PRINT VI '"' A6$ " OF. A GAS? EXERTS A PRESSURE OF "PI " A4$" ♦ ' 



126 PRINT /, 'WHAT WOULD BE THE OOLUHE OF THE SAME GAS IF THE PRESSURE IS CHANGED T 

G" ■ . ■ ■ •' '.. . . 

127*PRINT P2' "A 4* •?•■• ., ». «.■:;' 

ii2& A^^INT(100HcPl*Vl/P2> )/ioa ' ./ 

130 IF *Z<!>6 THEN '* 140 ELSE. PRINT " THE' PRESSURE OF A-jBAS IS"P5"A5*," WHEN THE' TEMP 
ERAJ'URE. IS.'Tl : -\- : r'.j- • - 

131 PRINT:.' 'A8**'A3*% WHAT WOULD .THE PRESSURE BE IF THE TEMPERATURE " ' 
132: PRINT CHANGES Ttir"T2 v : 'AS*' 'A2 - * ■? " " ' ' " 

135 A<6) = <I.NT(100*P5*(FNC(T2)4-273)/(FNC,(Tl)f273V))/100 \ ■ • ' 

140 IF Z<>.7 THEN ISO ELSE PRINT " WHAT WOULD THE -TEMPERATURE OF " VI '■' A6* " OF A GAS 
Bt »• . .. ■. • ...-' ■ \ '" i 

141 PRINT IF"'V2fA6*"«' OF THE SAME GAS HAVE A TEMPER A TURF OF " Tl 

14*2 PRINT.*' 'A8*"A2$ "?.* ■ ' . . • . 

145 A<7)=- <JCNT(100*(FNC(Tl)+273)*Ul/V2) )/iQO 

* 50 V Z<>8 THEN 155 ELSE PRINT " WHAT. WOULD THE VOLUME OF . A GAS BE WHEN THE TEMP" 
ERATURE IS" Tl / -\ - '•..* '•< 

1 5,1 PRINT " "A8*/'A1*\» IF THE VOLUME AT STP* IS*" VI ' ' A6* " AND THE * ' "•' 

152 PRINT * " PRESSURE REMAINS UNCHANGED? 
133 A*(8)-('INT( 100*Vl*<tl+273)/273) >/100 ."' ' !$• 

155 IF ZO-9 THEN 160 ELSE" PRINT > A:- GAS' MEASURES " VI '' A6* ". AT " P4°" AS*" . CAL€UI ATF 
ITS. VOLUME*- , , • . * • " / 

156 PRT.Nt* " AT"P5','A5*" . '■■ . • ■ . ■ •' 
157' A<9) = <INT<i00*P4*Vl/P5) )/100 ' \ 

160. IF" ZO10 THEN 165. ELSE - PRINT *' A SAMPLE OF GAS HAS A VOLUME OF " VI ' ' A6* " WHEN 
MEASURED" • , 

161 PRINT " AT * Tl ' <A8*"A1*" AND "PI' 'A4*"V WHAT VOLUME WILL IT" 

162 . PRINT " OCCUPY AT THE SAME TEMPERATURE AND " P2 " A4*» '? " . • . . . . 

164 A<10)«<INT(l00*V.l*Pl/P2) )/100 •'•»' .. ';• '■ 1 

165 IF ZO.ll THEN 170 ELSE PRINT " A SAMPLE OF GAS OCCUPIES "VI ' >A6*" A T " 1 1 ' / AS* " 

Al* . , ' » 

166 PRINT " AND * PI ' ' A4* " . WHAT VOLUME WILL IT HAVE AFT?' 'A8*"A1$ 
167.A(11) =' ( INT ( 100*V1* ( T2+273 ) / ( Tl+273 ) ) > /1-00 : : <' ' 

170 IF Z012/THEN 175 ELSE PRINT " A. SAMPLE OF GAS OCCUPIES " V3 ' ' &7't> " AT " Tl '•• ' AS*' 
^A2*" . ", % • • ... 

PRINT " CALCULATE ITS VOLUME WHEN THE TEMPERATURE IS"T2' ' A8* * ' A2* " > " \ 
173%^12) = <INT< <V;l*<FNC( T2 ) »-273 > *1'00 ) / ( FNC ( Tl ) +273) > )/100' >. V 
1-75 IF Z013. .THEN 185 ELSE PRINT " A SAMPLE OF GAS OCCUPIES " V3'V-A7* " A T P L " A4* 
." AND* Tl t ; ,, m , - ; 

176 PRINT " •A8*''A1*"> AT WHAT TEMPERATURE IN' " A8'f> ' ' Al* " WOULD THE * 

177 PRINT " PRESSURE BE" P2 " A4t> " , IF ; THE VOL-lfME REMAINS CONSTANT'!' " ' - *" 
179 A< 13>»< <INT(100*P2*<FNC( Tl )+273)/F:L ) ) )/100 -273 v . ". , " 

185 I f***2 < > 1 4 TH EN 195- ELSE PRINT " A' CERTAIN GAS OCCUPIES A VQiLUME OF "VI ' 'A6* " A 
T"T1 ' 'A8* '. . • : . " , ' 

186 PRINT ''Al* " AND"P1."A4*" . WHAT VOLUME WILL IT OCCUPY AT STP'>' ' ■ 
188 14,5 F--C INK l6o*..(Pl*0l*('T2+273> )/< (T1+273)*P2) ) )/L00 .; 

195 " IF ZO.15 THEN 500 ELSE PRINT " A' GAS MEASURES "" VI ' ' AA$ " A4L STP » C At GUI ATF ITS 
PRESSURE IN " AS* ~ , ' T^v : • ." " " ' 

196 PRINT V IF ITS -VOLUME IS CHANGED TO " V3 ' ' A7* "" AND THE TEMPFRATURF TO K T l ' 

197 PRINT. ' 'A8*"-Ai.*" . " , ' ; 

198 A(15>= ( mf< (Vl*100*< Tl+273) )/(273*V?) ) )/100 ~S 

499 PRINTXPRINT . .. ' • 

500 IF NZ"1 THEN .1999 . • , 

501 PR INT • . 

502 INPUT * . YOUR ANSWER • • - ■> ' } B (7) " ■ ' 

503 PRINT • • 

505 IF- ( ABS<A(Z)~B(2) ) Y> .01 'THEN 600 ELSE PRINT A9*\S.t,--Sl + 'l ' : . ' • 

506 GPtO 1999 

507 ! SI COUNTS CORRECT ANSWERS * 

t>00 Cl«C.l+l\IF C:t":.l THEN. PRINT l.«2* E'LSE PRINT ra*> ; • ' ' 

605 IF Cl-»1 THEN .50.1 ELSE PRINT A(Z)? • ' . \ 

606 IF 2*1 THEN 'PRINT ' 'AO!. ELSE IF Z THEN PI<INT'/A5* F I . JIF IF ZM THEN PR IN \ ' ' 
%a*. f\ g£ ip z^4 THEN PRINT "A6* ELSE IT Z-li TliEN I'lc.INT • ' Ai*>* 'ELSE IF Z-6 fHFN PRLN 
r ER J C ELSE 6010,607 .. ^ 



>Q7 ;IF Z=7 THEN PRINT " A8« " A3* ELSE, IF Z=8 THEN PRINT ' 'A6« ELSE/IF Z~? THEN PRINT 
' ' ' A6$* ELSE IF Z=10 THEN PRINT ' ' A6$ ELSE IF Z'=l-1 THEN PRINT A6$ ELSE GOTO 608 

>08 IF 2=12 THEN'- PRINT. "A7* ELSE IF 2=13 THEN PRINT ' ' A8$ ' ' Al$ ELSE IF Z-1A THEN . 
>RtNT"A6*. ELSE IF 2*15 THEN PRINT " A5$\GOT0 .199? 

1999 Z1*Z1 + 1\PRINT\I.F Zl-6 THEN 2019 ELSE IF Zl-11 THEN 2019 ; 

2014 IF Z>14 THEN' 2400 ' . , . , 

2015 C1=0\NEXT Z " J 



2019 PRINT " ' ) 

2020 PRINT V IF YOU WISH TO CONTINUE TYPE 'YES ' ? OTHERWISE TYPE ' NO' ♦ " 5 ' 

2021 INPUT S5<6 v ■• '• 

2022 PRINT\PRINT\PRINT 

2025 IF S5$="NQ" THEN 2400 ELSE 20 IS , ■ ' 

2400 PRINT: " THE STUDENT " . Nl$ " HAS ENDED THIS SESSION. "Nl$ 

2401 PRINTXPRINT * HAS ANSWERED 0 Si.*- QUESTIONS CORRECTLY » "\PRINT 
2405 PRINT " HERE ARE THE" CORRECT ANSWERS AND "Nl$ "' S ANSWERS: ■ 
2499 PRINTKPRINTXPRINT 

2500. PRINT TAB(5)' " PROBLEM"? TAB < 18) ' CORRECT ANSWER" i TAB (40) "STUDENT'S ANSWER" 
2502 PRINT TAB (5) TAB < .18) '***************» TAB (40) ■"**** ***** ****** * 




2505 PRINTXPRINT , , 

2510 FOR Z=l TO Zl-1 ' 

2512 PRINT TAB (3) ' 'ZrTAB(25> ' 'A(Z) y TAB (46.) "B.(2) 

2520 NEXT Z 

3000 END * , 



CME908 14: 02 19-Apr-77 

1 REM - THIS IS A PRACTICE SESSION IN SOLUTIONS » £>V>Sv*>>v£>S.vV-'' ? 

2 i THIS PROGRAM HAS BEEN DEVELOPED BY DR. JULIO GALL^RDQ » OF. HOSTOS COMMUNITY 

SUBSIDIZED BY *A GRANT FROM THE NATIONAL SCIENCE FOUNDATION, 

* " ?N% ' 



COLLEGE* AND WAS 



YOUR NAME , 



A5$ 



20 



53 
54 



IF S2*<>»YES' THEN 20 



* 

i 



ELSE PRINT 



ELSE PRINT 



******* 

\b \V \^ \Lf \ls \]l yt* 

zfk n* ^ 



5 INPUT! " /CODE 

6 PRINT\PRINT\PRINT 

7 IF N%=1 THEN 40 
10 DIM A < 15) »B<15> 

12 INPUT" AFTER THE QUESTION MARK (?)> TYP 

13 PRINT • . . 

14 INPUT "AFTER THE QUESTION MARK <?>> TYPE YOUR SOCIAL SECURITY NUMBER, 

15 PRINT , • 

$7 PRINT " YOUR NAME IS » ' A5* ;" AND- YOUR SOCIAL SECURITY NUMBER IS," 
18 PRINTNPRINT' 'Si* ". ARE THEY CORRECT? "\PRINT- 
INPUT • TYPE 'YES' OR 'NO', ■ i S2* 
PRINT \ PRINT \IF S2$="N0" THEN 12 ELSE 
40 RANDOMIZE " 
50 FOR Z=*l TO 15 
PRINT\PR.INT 
IF Z<10 THEN PRINT V ******* 

55 PRINT ' " PROBLEM * Z 

56 IF Z<10 THEN PRINT ' ******* 

57 PRINT 

60 Xl=<INT<6000*RND+3050) > /l 0\X2= < INT < 5555*RND+5555 > >/10 

61 ! XI AND X2 ARE NUMBERS BETWEEN 300 AND 1100 WITH 1 DECIMAL 

65 Y1=<INT<375*RND+155) ) / 10\Y2= < INT < 425*RND+125 > )/10 

66 ! Yl AND Y2 ARE PERCENTS 

70 X5=<INT(6000*RND+905> ) /100\X6= < INT ( 5555*RND+875 ) )/100 

73 X3=<INT(20000*RND+10500) )/100\X4=< INT < 19000*RND+1 1000 ) )/100 

99 PRINT 

1 00 " IF ZOl THEN 110 ELSE- PRINT -" HOW MANY GRAMS OF SUGAR MUST BE ADDED TO 

GRAMS OF WATER TO " 
101 PRINT " 'PREPARE A " Yl ' PERCENT SQLUTION?" 
103 A<1)= <INT(100*X1*Y1/<100-Y1) ) )/100 

110 IF Z<>2 THEN 120 ELSE PRINT ■ IF " X5 
SSOLVED IN ENOUGH " 

111 PRINT " WATER TO MAKE " X2 GRAMS OF 

112 PRINT •' CONCENTRATION OF NsCl '■ 
115 A<2)= < INT(X5*100*100/X2) >/l()0 ' 

120 IF Z<>3 THEN 130 ELSE PRINT ' CALCULATE THE 
SA'RY TO PROVIDE "X2 

121 PRINT " GRAMS OF SODIUM BICARBONATE FROM A 

122 PRINT " BICARBONATE SOLUTION. ■ • / 
125 A(3)= (INT(10000*X2/Y1) )/100 
130 "IF Z<>4 THEN 140 ELSE PRINT 



J SI* 



** 



** 



XI 



" GRAMS OF SOD I rifif* CHLORIDE (NaCl) IS DI 

' ' ' 

30LU%EQN» CALCULATE THE PERCENT 

• . '■ " 

Dumber of grams of solution neces 
yi "• percent sodium " 



CALCULATE THE MOLALITY OF A 
IN-v." XI" GRAMS OF WATER. " 



SOLUTION THAT CONTA 



INS " X3 ■ GRAMS" 

131 PRINT " ETHYL ALCOHOL <C H 0) 

132 PRINT " 2 6" 
1'35 A(4)= (INT(100000*X3/(X1*46) ) )/100 

140 IF ZO- 5 THEN 150 ELSE PR t N'T " CALCULATE THE NUMBER 
*m TO PREPARE " X2 . . 

141 PRINT " GRAMS OF; A " Yl/100 "m (MOLAL) SOLUTION OF 

142 PRINT " THE MOLECULAR FORMULA OF SULFURIC ACID IS 

143 PRINT " ," 

145«A<5>™ (INT<98*Y1*X2*100/(100000+Y1*9;S) ) )/100 

150 IF Z<>6 THEN 160 ELSE, PRINT " CALCULATE THE NUMBER OF GRAMS OF WATER THAT MUS^ 
r BE ADDED TO " 2*X5 "d" 

152 PRINT " OF GLUCdSE,.(C H 0 ) IN THE PREPARATION OF, A "Yl/100 "m SOLUTION i » 

• ■', 6 12 6 " . ■ ,.■ 

(INT('2*X5*lboO0O0O/( lC*p*Yl ) ) )/10() 



153 PRINT 

155 A<6)= 
160 IF.Z-C 
TE ( A ? JN0 

l ERJC INT 



OF GRAMS OF SOLUTE NECEGS 

SULFURIC ACID . 
H SO " 
2 4" 



7 THEN 170 ELSE 
) SOLUTION " 



PRINT / HOW MANY GRAMS OF A 



ri ." PERCENT SILVER NITRA 
• 3 " 



163 PRJNT ■"■ ARE NECESSARY TO YIELD " X5 • GRAMS OF SILVER NITRATE? 1 
165 A<7) = <INT<10000*X5/Y1) )/100 1 ' 

170 IF Z<>8 THEN 180 ELSE PRINT " CALCULATE THE WEIGHT OF ANHYDROUS HC1 IN " XS " 
ml OF CONCENTRATED " . . 

171 PRINT " HYDROCHLORIC ACID OF DENSITY 1. 19d/ml AND CONTAINING "Yl"% HC1" u - 5 

172 PRINT-" BY WEIGHT . ■ - ' 
175 A<8>= <INT<X5*1.19*Y1))/100 JL" 

180 IF Z<>9 THEN . 200 ELSE PRINT ■" WHAT IS THE MOLALITY OF A SOLUTION WHICH CONTAI' 
NS "X6 "3 OF CANE" 

181 PRINT " SUGAR t C H 0 , DISSOLVED IN ' XI 1 GRAMS OF WATER? " 

182 PRINT " 12 22 11 " ' •* 

185 A<9)= <INT<1000*X6/<342*X1 ) ) )/1000 , . . 

200 IF ZOiq THEN 210 ELSE PRINT " CALCULATE THE VOLUME OF CONCENTRATED SULFURIC 
ACID» OF, DENSITY 1.84a/ml" . , ' ' , 

201 PRINT " AND CONTAINING "Y2"%.0F SULFURIC ACID BY WEIGHT 1 THAT WOULD CONTAIN " 

202 PRINT X5 " GRAMS OF PURE SULFURIC AG ID »' ", <" 
205 AC10) «<INT(106OO*X5/(Yi*l .84) >')/100 

210 IF ZOll THEN 220 ELSE PRINT " CALCULATE THE PERCENT OF THE -SOLUTE IN A SOLUT 
ION, THAT CONTAINS "Yl'sJ" 

211 PRINT 'OF POTASSIUM CARBONATE IN "X2's( OF WATER. ' 
215 A<11)= ,< INT < 10000* Y1/X2 ) ) /iOO 

220 IF Z"<>'12- THEN 230 ELSE PRINT 1 CALCULATE THE GRA^S OF WATER THAT MUST, BE A DDE 
D TO " X5" GRAMS OF " . 

221 PRINT " POTASSIUM IODIDE IN THE PREPARATION £F A ■ Yl PERCENT POTASSIUM " 

222 PRINT " .IODIDE SOLUTION ♦ " "* 
225 A<12)= <INT<X5*100*(100-Y1 )/Yl) )/100 

230 IF Z013 THEN 240. ELSE PRINT " CALCULATE THE MOLALITY .OF A SOLUTION CONTAININ 
G "X5"sl OF SULFURIC'" . - * ■ 

231 PRINT " ACID IN ■ XI '3 OF WATER. " 
235 A < 13)= <INT<100000*X5/<98*X1> ) )/100 

240 IF Z014, THEN 250 ELSE! PRINT 0 HOW MANY GRAMS OF SOLUTE ARE NEEDED TO PREPARE 
" . X2 "3 OF A " 

241 PRINT Yl/100 " MOLAL SOLUTION OF ETHYLENE GLYCOL ( C H 0 ) ? " 

242 PRINT . 2 6 2" 

245 A<14)= <INT<62*Y1*X2/<1000+62*Y1 ) ) )/100 ' v ' 

250 IF Z<>. 15 THEN 260 ELSE PRINT " CALCULATE THE .NUMBER OF GRAMS OF WATER THAT M 
UST BE ADDED TO "Yl/25 ' ••■ -\/ / 

251 PRINT " MOLES OF PRESTONE <C HO) IN THE PREPARATION OF A ' Y2"m SOLUTION."' 

252 PRINT " 2 6 2 " 
255 A<15)= <INT< 100000*Y1/(25*Y2) ) )/100 1 

260 PRINTMF NX=1 THEN 1999 •* > 'V * 

261 INPUT " YOUR ANSWER 1---- — »JB<Z) ( . f 

265 IF ABS<A(Z)-B(Z) )>.! THEN 399 ELSE 499 > ~- 

399 RRINT 

400. C1=C1 + 1\IF Cl = l THEN PRINT " YOU ARE INCORRECT ►• TRY AGAIN. " ELSE PRINT " Y 
OU ARE WRONG AGAIN. THE CORRECT ANSWER IS *•*■ A(Z)r 

401 IF Cl = l THEN 260 

402 IF Z=2 THEN PRINT ELSE IF Z=4 "THEN PRINT'MOLAL" ELSE IF Z=9 THEN PRINT "MO 
LAL" ELSE IF. Z=10 THEN PRINT "ml" ELSE IF Z : -13 THEN PRINT . "MOLAL" ELSE IF Z*ll TH 
EN PRINT "%" ELSE PRINT " GRAMS " 

403 PRINT ' . ' 
405 IF Cl = l THEN 100 ELSE 1999 •' , * 
499 PRINT. 

i500 PRINT » CORRECT MM! " \S1%=S1%+1% 

1999 C1=0\IF 2=5 THEN 2010 ELSE IF Z=10 THEN 2010 
200Q NEXT Z *r " 

2Q09 IF Z = 15 THEN 2480 ., J 

2010 PRINT\PRINT\PRINT " IF YOU WISH TO STOP HEREj- TYPE ' N ' >, OTHERWISE t PRESS -' RE 
TURN' , " f ; 
2012 INPUT Q* ' 

2014 IF G*="N" THEN 2480 ELSE 2000 " 4 4 

2 ~*RINT\PRINT\PRINT ; " . ' 

2 ERIC RINT " • " AS * " HAS ENDED THIS SESSION. .' "A5i6 " HAS ANSWERED "Sl%" GQESfl 
CnnA&nlRRECTLY. " 1 



2485 PRINi\PRIjNT\PRINr " HERE ARE ' A5$ ANSWERS AND THE CORRECT ANSWERS* " 



2486 PRINTVPRINT 



2500 PRINT TAB(8> "PROBLE^ " rTAB ( 28 ) "CORRECT ANSWER" ?TAB'(58> "STUDENT'S ANSWER" 

2501 PRINT TAB ( 8 ) " ******#WTAB ( 28 ) ,"******# ****** « jJAB ( 58 ) "********* ****** «\p 
RINTXPRINT * \ • • , 1 \ 
2505" FOR Z=l TO 15 

2506 IF 2<10 THEN PRINT . TAB \( 1 1 ) ' ' Zi 

2507 IF Z>9 THEN PRINT 'TAB (10) ''Z J ' ' ' •' - " \ 
2510. PRINT TAB (33, ) ' ' A< Z) 5 TAB (\65 ) ' ' B ( Z ) 
25U NEXT Z ■ ' ' 
3000 END - «..' 



r 



/ 



[10 

11 

lis 

|l6 
17 
A2$ 
18 PRI 
19 
20 
21 



JULIO 
FROM THE 



lLARDO » OF HOSTOS 
NATIONAL SCIENCE 



COMMUNITY 
FOUNDATION ♦ 



CHE018 14*53 ^-Apr-^* 

1 REM _ THIS IS A PRACTICE SESSION.. IN SOLUTIONS 

2 ! THIS' PROGRAM HAS iBEEN DEVELOPED BY DR. 
COLLEGE* AND WAS SUBSIDIZED BY A GRANT 

INPUT " CODE * 0 ? Q%\PRINT\PRINT 

IF QX=1 THEN- 45 

INPUT, .?■>■.- AFTER THE QUESTION MARK <?>» TYPE YOUR NAMeI "l^l$ 
PRINT 

INPL/r ••• AFTER THE QUESTION MARK <?), TYPE YOUR SOCIAL. SECURITY NUMBER ♦ 



TXPRINT „" 
PRINT \PRINT" 
INPUT, • TYPE 
PRTNTMF. A3$="N" 
PRINJXPRINT' " 
45* DIM A (15) rB<15) A 

50 FOR Z%=1 TO 15 

51 -RANDOMIZE 
53 PRINTXPRINT 

IF Z%< 10% THEN PR I NT 



YOUR NAME IS* *A1$" AND YOUR SOCIAL 
• A2*% ARE THEY CORRECf? "XPRINT 
Y' FOR YES AND 'N' FOR NO "5 A3$ 
IF A3*="Y 
'N' ONLY. 



SECURITY NUMBER IS: 



THEN- 15 ^ELSE 
TYPE 'Yf OR 



THEN 50 | 
XPRINTXGOTO 20 



******* * ' ELSE PRINT 



******* * 



4 



» PR I NT f 
EF ZZK107. 



THEN 



. PROBLEM 
PRINT ' 



Z7. 



******* * " ELSE PRINT 



******* *j 



AND 50 WITH 



57 ./PRINT X PRINT ■ *\ ,'•!'.■ 

60/ , v'l=<INT( ; 40050*RND+30500) )/100XV2=CINT(40555*RND+29555) )/100 
! VI AND .V2 ARE VOLUMES WITH VALUES BETWEEN 300 AND 700 
TO BE USED IN mix ,. 

V3=aNT(225*RND+150'))/100\V4=(INT-(225*RND+145f)/100 ' 
! V3 AND V4 ARE VOLUMES BETWEEN 1.50 AND 3.75 WITH 

TWO DECIMALS, TO BE USED WITH -LITERS ' " - ' 

Ml = (TNT(3055*RND+2055>)/l00\M2=(INT(314S*RNDf21,55) )/100 • i 
! Ml AND M2 ARE. MASSES WITH VALUES BETWEEN 20 

TWO DECIMALS • , \ 

N1 = (INT(1735*RND+15) )/1000\N2=( INT( i725*RND-f IS ) )/1000 J 
! Nl AND N2 ARE VALUES OF NORMALITY BETWEEN .015 ANli 1.75 

WITH THREE DECIMALS. • " * 

Pl = INT<3O*RND+15)\P2==INT(\45*RND+50> • 
! PI* AND P2Z ARE INTEGERS TO BE USED AS PERCENTS .PI <45 AN 
M3=(INT(100*RND*49+100*50) )/100\M4=( INT<100*RNi:i*45+4500) )/10 
! M3 AND M4 ARE MASSES WITH VALUES BETWEEN 50* 
N3=.INT<8*RND+1)- .V 
! N3 IS A DUMBER- BETWEEN 1 i AND.. 
IF Z%<>iiTHEN 110 ELSE PRINT " 



:i P 



AND .99 AND 



TAINS" M3 

101 PRINT 

102 PRINT 

105 A<1%): 



" 3 -OF ETHYL 
" ALCOHOL (C H 0) IN 
TAB ( 11 ) "2" r TAB ( 13 ) "6"' 
• < INT < 100000*M3/ < 46*V1 ) ) ) /100 



3 (INTEGER) - 
CALCULATE THE 



MOLARITY 



VI 



ml OF SOLUTION. 



110 IF ZZO 2 THEN 120 ELSE PRINT " CALCULATE THE NORMALITY 
ONTAINS" Ml " <3 OF SODIUM " . . v ■ - • , 

111 PRINT " CARBONATE (Na CO ) PER 

112 PRINT TAB < 14$ "2" ? TAB < 17) "3" 
115 A(2%) = ( INT<Ml*100/53) )/.L00 




TWO DECIMAL 



LUTIQN WHICH 



CON 

9 



SOLUTION WHICH C 



LITER 



130 ELSE PRINT 
N " 



HOW- MANY 



120 IF Z%<>3 THEN 
NT IN" V2 " ml OF A" N3 

121 PRINT" - SOLUTION?" 
A<3Z)*(INT(N3*V2*100) )/100 , 
IF Z%.<>4. THEN 140 ELSE PRINT 

' V4 "1 OF A" N2 

PRINT " N SOLUTION OF PHOSPHORIC ACID (H PO )? 
PRINT TAB ("33 ) "3" » TAB ( 36 ) " 4 " 
A(4%)-<INT<:N2*V4*9806/3) )/100 
9 Z%<>5 THEN 150 ELSE PRINT 



MILLI-JQUIVA1 



ENTS TJF SOLUTE ARE PRESE 



130 

-*E 

131 
132 
135 

t 



HOW MANY GRAMS OF SOLUTE ARE ' REQUIRED* Vq 



PRE' PA 



i ERIC- 



Nl • "N SOLUTION OF 



HOW MANY MILLI -EQUIVALENTS ARE THERE IN" VI 



46 



in 



) ? 1 



REACT? " 
CALCULATE THE "MOLARITY Of A " PI 



CALCIUM NIT 



sf/ml » " '. . v, ■■' ■ ' , .-.* 

CALCULATE, THE NORMALITY OF A SOLUTION CONTAIN 
ml OF SOLUTION. " . ■'• * 

IE MOLARITY OF A SULFURIC ACID SOL' 
"/. H SO BY WEIGHT » * 



HOW MANY EQUIVALENTS OF SOLUTE ARE CONTAINED 



141 PRINT* • BARIUM. HYDROXIDE (Bs(OH) 

142 PRINT TAB* 25) •2" 
145 A(S%) = <INT<Nl*Vl*10O))'/lOO / v 

1 32^t Zy ' <:> 6 THEN 160 ELSE PRINT ■ WHAT IS THE 'EQUIVALENT WEIGHT OF ALUMIi.JM HYD 
ROXIDE <Al (OH) ) * WHERE ' 
151 PRINT TAB<60) "3 d 

152. f PRINT " ONLY ONE OF THE HYDROXIDE IONS 
155 A<6%)«78 : 

160 IF Z%<>7 THEN 170 ELSE PRINT • 
RATE <Ca<NO ) ) SOLUTION" 

161 PRINT TAB < 57 ) " 3 " r TAB < 59) "2" 

162 PRINT ", WITH A DENSITY OF" Nl 
1 65 A < 7-/. > ■ C I NT < 100*>t*N 1/ 164.) ) / 100 
170 IF'Z%<>8 THEN "180 ELSE PRINT 
ING" M2 V G OF SODIUM" 
171- F|RINT " HYDROXIDE (NaOH) IN" V2 
175 -A(8^) = (INT(M25f<100000/U2) )/100' _ 
180. IF Z%<>9 THEN .190 ELSE PRINT "CALCULATE 
UTION OF SPECIFIC GRAVITY" i . 

181 PRINT N2 " sj/ml CONTAINING" PI 

182 PRINT TAB (30) "2"«»TAB(33) "4" ' 
185 A(9%)=( INK 1000*N2*Pl/98) )/100 

190 IF ZXOIO THEN 200 ELSE PRINT " 
IN" V4 "%1 OF A" N3 " #" 

191 PRINT " SOLUTION 
195 A(10%)=-(INT(100*N3*V4) )/100 
2.00 IF ZXOI1 THEN 210 ELSE PRINT '" 

ACID (H SO ) y OF SPECIFIC" 

201 PRINT TAB(54.) "2" ? T AB(57) "4" 

202 PRINT " GRAVITY . 34 CONTAIN (" 

203 PRINT " TO MAKE Ji " ml OF i 

205 A ( 11% ).= ( INT ( N1*V 1 36 . 8 ) ) /1QC 

210 IF ?.%<;> 12 THEN 22 ELSE PRIN" 

IC ACID (H PO ) SOLUTION " 

211 PRINT TAB(56) "3" ? TAB (59) "4" 

212 PRINT " IN A REACTION THAT ONl V 
215 A(12%)~(INT(N2*300/2) )/100- • 

220 IF Z%<>13 THEN 230 ELSE PRINT " 
SARY TO PREPARE" V2 "ml " 

221 PRINT " OF A" N2 " M SODIUM SULFATE (Ns SO ) SOLUTION. 

222 PRINT TAB (33) "2" ? TAB (36) "4" 
225 A(.13%) = (INT(N2*V2*.L42/10) )/10'0 
230" IF Z%<>14 THEN 240 ELSE PRINT 
ED TO PROVIDE* M4 ■■'/ 2 OF" ' 

231 PRINT " SULFURIC ACID (H SO ) 
ACES" '• • 

232 PRINT TAB ( 17 ) "2 " r TA§ , (2jO ) " 4 " • 

233 PRINT " ONLY ONE HYDROGEN ION."' 
235 A<14%)=(INT(M4*i00000/(98*N3) ) )/100 

3 4 2 * F U F*£i?„I HEN 250 ELSE PRINT " A HYDROCHLORIC ACID SOLUTION IS APPROXIMATELY 
PI 7. .HYDROCHLORIC ACID (HC1)". 

241 PRINT " AND ITS DENSITY IS" N 1 " a/ml. CALCULATE - THE NORMALITY OF THE HYDROCH 
_ORIC " r i ' * ■ 

242 PRINT " ACID. " ^ 



HOW 




MILLILITERS OF CONCE 



"RATED 



N 



SULFURIC ACID- BY 
SOLUTION?" 



WEIGHT SHOULD BE 



2ALCULATE THE NORMALITY OF A" N2 



M 



i.O R 



REPLACES TWO' HYDROGEN IONS. ". 

CALCULATE THE NUMBER OF GRAMS OF SOLUTE NECES 



" CALCULATE THE NUM/BE-R OF ml OF 
FROM A" N3 " N SOLUTION IN A 



SOLUTION REQUIR 
REACTION THAT REPL 



245 
250 
300 
3Q5 
399 
<K)0 

401 



A(15Z)=(INT<1000*Pl*Nl/36.45) )/100 
IF Q%«1 THEN1999 ' 

PRINTMNPUT " YOUR ANSWER -7 —•> "?B<Z%) 

PRINTMF ABS ( A(Z&) -B(Z%) » » 1 THEN 399 ELSE 499 
PRINT 

C1-C1+1YIF Cl~l THEN PRINT " YOU ARE INCORRECT. TRY AGAIN. 

you. are Wrong again, the correct answer is — — - — > »• A(Z%)» 

IF Cl = l THEN 300 ■.' ■ . . ' 1 - ' 



\ 



ELSE < PRINT 



er|c 



47' 



tO'2-JEP Z%*1 THEN PRINT" H" ELSE IF> ; Z%=2 TK I \PF.INT " N " ELSE IF Z/,- THEN PRINT*' 
i-EQUI\M* ELSE IF Z%==4 THEN PRINT V- a" E-LEI IF Z%=5 THEN PRINT " m~ liUIV." ELSE 4 

103 IF Z%=6 THEN PRINT "a- ELSE ' IF Z%=7*T -iEN PRINT " M*tELSE IF Tk -.Q THEN PRINT 

N« ELSE IF Z%=9 THEN PRINT " M* ELSE IF Z% = 10 THEN PRINT " EQIJIV, 1 ELSE IF Z%=1 
, THE^ PRINT • ml" else 404 t / r , v 

(04 -IF Z%-12 THEN PRINT ' N " ELSE IF Z%*13 THEN PRINT " W" ELSE IF Z%»14 . THEN ,'PRI 
IT • in I ■ ELlBE ' IF Z%^1S THEN. PR I NT '•" N ' 
fOS-PRINT\ t PRl4<JT\GOfO- > 1^9 
>99 PRINT , . ■ • • , , ' • '•" . 

'00 PRINT '■■ :/. CORRECT ! »,! "\S1%^&1%+1% 1 • ;V ) 

9<?9 C1=0\IF Z%-5* THEN 2010 ELSE' IF Z%= 10, THEN 2010 ELSE IF Z%=15 -THEN 2010 ELSE 

F ZX=20 THEN 2010 , " - ' . 

>000 NEXT Z% • . • ' • 

!009 IF Z%~15 THEN 2480 , 7 

>010 PRINT\PRINT\PR'JNT.«, IF YOU WISH TO STOP' HERE y TYPE ' Y '/ OTHERWISE PRESS 

RETURN' . " i 
J012 INPUT Q<$ 

10X4 IF Q$='Y" THEN* 2480- ELSE 2000 ' '" , 

>48"6 PRINT\PRINT\pR.f NT ' .- 'j •' x *>•••»- ■ 

>481 PRINT " "Al$ - ■■ HAS ENDEIi 'THIS SE ' ION - " i Al$' n HAS ANSWERED '8 .% ' QUEST 

IONS CORRECTLY* V ^ 

2485 PRINTS : 'RIN T \PR ( INT ■■ HERE"- ARE THE 30F . 7 IaNSWE" r AND "Al n 'S ANSvZRS. " 
M86 PRINT\PRI ' ■ . ^ . • '•' ' ■ - 

2500 PRINT TAB . 3 ) ' » PROBLEf- Tk (28) "CORRECT iCWER" JTA3 v53\ "STUDENT' t ANSWER" 

2501 PRINT TAB (3) " XoK****::: TV (28) 8 %%% ::,::K**" i TA3 <58>* . "***:;:****: :***VP 
?INT\PRINT\FRINT " . 

1505 FOR J%=1% TO Z% : 

2506 IF J%<10% THEN' PRINT 3(11)."JX) , ' »• '. . • 

2507 IF J%>9% THEN PFilNT T. 10)"J%i _-. 

2510 PRINT TAB (31 )"A< J%) V " < 65 > 'B<J%) - . ' , 

2511 NEXT J% • ,• • 

5000 END , • • '•'.'*' ' 



GALLaRDO AND Mg< 
BY A GRANT -FROM 



:HE023 . lOtlo 20-Apt 77 

t REM - THIS IS A PRACTICE SESSION IN OAS' LAWS ♦ 
I ! THIS PROGRAM HAS BEEN DEVELOPED BY DR. JULIO 
OF HOSTOS COMMUNITY COLLEGE* AND WAS SUBSIDIZED 
ENCE FOUNDATION . ' - 

5 PRINT\PRINT\PRINT \PRINT " IF YOU WISH TO GO TO A MORE DIFFICULT SET 
(GEN. CHEM.)» TYPE "\PRINT ' THE LETTER ' hT OTHERWISE PRESS THE <RETURN> KEY . " y 

I INPUT S7*\ IF S7*="H" THEN CHAIN "CHE038" ELSE 5\PRINT\PRINT \ :, '" ■ ' . 
5 <t PRINT\PRINT\PR i INT \ INPUT 1 . " CODE *"? N%\PRINT\PRINT<PRINT . * >■ 

6 ! N%=1 WILL. GIVE A PRINT OUT OF THE PROBLEMS WITH ANSWERS ' . ' .. 

7 IF N'/!=l THEN 4? '.' "~".:V . " 

WHILE SI* WILL BE HIS 



STEVEN DELGADOy 

the National sci 



OF . PROBLEMS 



3^ I Nl$ WILL- BE THE 
LI DIM A(l6> y v B(10) 



STUDENT'S" NAME 



L2 
L3 
L4 

L5 

20 
21 



INPUT 
PRINT 
INPUT 



AFTER THE QUESTION MARK <?)V TYP YD 



!AME .' 



SOCIAL^ 

._ , u 

0 ?N1$. 



SECURITY -NUMBER 



C- r TER THE C __TI 



(?)-y typ: 



YC 



SOCIAL SECURITY NUMBER, 



SI 



PRINT 
PRINT * 
PRINT " 
INPUT S2 

25 iF S24, = 
i \ !:> " ELSE " 

26' IF- S2*.<> 



)UR 



NAME 
3, " Sl$ 0 
.PRINT 
NO' ' THEN 
~ S2$='YES 
YES ' THEN 



13: 



. AR ' 

:z E-_:. 
' TH" 

:nt 



"tE 



AND /OUR SOCIAL 
■ CORRECT? TYPE 



SECURITY 
YES' .OR 



NUMBER 
'NO'. 1 



'\PRlNT 



52* 
PKTNT 



YES ' 



■■N1-* 



-EN PRINT ."• TYPE 'YES 



HAS 



STARTED 



DR 'NO' 

This sessi:n at ■ 



ONL 

( 

TIM 



2 7 PR Ij^TXPRI M T \ P R I N T \ P F 

moy ■ 

19 .21 = 1 
50 RANDOMIZE 
52 FOR Z=Z1 TO 10- A "> 
35 TT5:<INT(1000*RND ,+500) ) /l 0\T2= ( INT < 1000KRND +400)>)/l v 6 ■'■ ■ 
56 ! Tl AND T2 , ARE TEMPERATURES WITH VALUES BETWEEN 50 AND ~L50 DEGREES 

58 Pl= ( INT ( 7050*RND+5500 ) ) /±0\P2= (INT ( 8050*RNn+405() ) ) /10\P3= ( INT <700'0*RNn+8000 ) ) / 
10\M1=(INT(1845*RND+155) )vV1000\M2=( INT( 1845*RND+155 ) )/1000 

59 ! P1>P2»P3 ARE VALUES/OF PRESSURE BETWEEN' 400 AND 1500 • 

60 P4=(INT(40*RND+15)j)/10\P5=(INT(43*RND+16) >/10 

6i t !.'P4 AND PS ARE • VALUES OF PRESSURE" IN ATM • ".7" .'. '. 

62 Vl=(INT(tOOOO*RNr/+2000) ) /l 0\V2= ( INT (, 10000*RND+2000 ) )/10 

631 VI AND V2 "ARE VALUES >0F . 'VOLUME JN> MILLILITERS AND V3 IN LITERS 

64 V3=( I'NT(75*RND+15) ) /10\jV4= ( I NT< 400*RND+100 ) )/10 . - ' •' . ' 

6 7 -P R I N T\ PR I N T \ P R I N T . * ' . - ~ . ' ' - ' •; . 

68 Z9=Z9+1\F9R, 1=30 . TO 49\PRINT TAB(I) "*«?\NEXT J ! 

69 PRINT TAjE«30) n *"\.TF Z9=2 THEN 80 ELSE PRINT TAB (30) 
iM Z5\PRINt/tAB(50) "*"\GOTO 68 • '-: 
fo DEF FXC (Yl) = (5>K( Tl-32 ) ) /9 • v 
31 dEFv FNB(T1 )=9*Tl/5 +32 • .. 

35 A 9*= " CORRECT ! ! ! ! ! * . — ■ ' 

37 B3$- ' - • YOU ARE INCORRECT. TRY AGAIN" 

aS 1 ^!!^ " '. YOU ARE WRONG AGAIN . THE CORRECT ANSWER is- — — -— - 
?9 PRINTXPRTNT 

LOO 4.F 'ZOl THEN, 105 ELSE PRINT " A MASS OF OXYGEN 



# " 5 \ PR. I NT TAB(35) " PROBL 



OCCUPIES" V3 "LITERS UNDER A P 



ASSURE OF 



P3 "TORR. 
DETERMINE 



THE VOLUME OF THE SAME MASS OF GAS AT STANDARD PRESSURE ( 76 



L01 PRINT 
!) TORR) , n • 

L02 PRINT " TH/E TEMPERATURE REMAINING CONSTANT. 
103 AU>~< lNT<V3*P3/7.6) )/100 , 
105- IF Z<>2 THBN 110 ELSE PRINT " GIVEN THE VOLUME OF A GAS AS" VI »iti.I.AT"P2 "TOR 
'< PRESSURE*. . ." • " : , 

1.06 -PRINT " CALCULATE THE VOLUME OF THE SAME MASS OF 
108 A ( 2 ) = ,( IN?( 1 OOX<V 1 *P2/P 1 ) ) / 1 00 



AT" PI "TORR.> » 



HO IF ZC3 THEN 1.15 ELSE PRINT " A. MASS OF 

TTS.UGLUME AT" f2 "Cr"V 
l FRir IWT " THE ' PRESSURE>REMATNING CONSTANT. 
' £jV^: 7V * (-INT (1 P0*V2* ( T2+273) / (T l +273 ) ) ) / 10'" 



NEON 

... i . i 



OCCUPIES" V2 "ail AT" Tl "C. FIND 
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US -.IF Z<>4 THEN "120 ELSE PRINT «" WHAT VOLUME WILL ° ,*V3 "LITERS OF - HELIUM * MEASURE 
D AT"T2 "C» OCCUPY" ":. v ', - : , ' ' ^ . './ i, , 

116 PRINT- ". AT-.Ti "C h ? " V« *' \?.^>-r— ' v y \ ;V' ' : 

118 A(4) = (iNt(i00){cV3*.(Tl+i > 73)/(T2-f273) )3-^C ■ /, : • 

120 IF Z<>5 THEN .-125 ELSE PRINT " A STEEL TANK CONTAINS- CARBON DIOXIDE Al Tl "C 
*ND A PRESSURE! OF" P4-/ ATMV 8 " .2 v . . 

121 PRINT * DETERMINE' THE INTERNAL Gv. : 'R "RE WHE. THE TANK IS. "HEATED T^T2; "C 1 * 



122 A<S)^<W<tb , 0*F4^(T2>fe2J3)/(Tl+273) ) )/. 0 . •* ■ ' ■ '• V ' ■ 

125 IF ''7<>6 THEN 130 ELSE PRINT ", GIVEN" g: "LITERS OF, AMMONIA AT" .Tf "G AND". PI 0 
"TORRr. DETERMINE ITS " '; '• . •' * - • 

126 "PRINT "•• VOLUME AT" T2 " C AND " P3 "TORR, " V * 

127 A(6.)^(INTX10 *V3*<iT2+273)/(Tl+273) )*<P1/P3) ) )/106 . * . : " 
130 IF -Z07 THE* 135. ELSE PRINT ? THE VOLUME OF A QUANTITY OF SULFUR DIOXIDE AT" 
Tl "C AND " P3 u T1RR r IS " 

131; PRINT " " V3 LITERS. CALCULATE ITS VOLUME AT'STANDART CONDITIONS <STP> . ," 
133^'AC7) 0 =(INT(ie.)#g3*<273/<Tl+273) )*( (P3/76))') ) )/lQ0 

135 IF ZO-8 T-HEh 140 ELSE PRINT " A MASS OF HYDROGEN OCCUPIES" V4 '. "LITERS AT"*T2, 
"F AND" P5 "ATM F'lND ITS". • ..V * ' . , < 

136 PRINT " VOLUME AT .-* T 1 " F AND " • F'4 .'" £ Th " " > 

137 ■■ C,f80«.04*P5siciOO3k'('FWC-('-Tl ).+273 )\D(8) = (FNC T2)+273)>i<P4 . . ' ' . * ' 

138 A<8) -< T.NP(%<-8X/D<8) ) )/10'0 - 

140 IF Z<>9 THEN 145 ELSE PRINT " TO HOW MA *Y. ATMOSPHERES PRESSURE MUST A 4.ITER 0 
F GAS MEASURED AT" P4 ''ATM" . ~ 

141 PRINT "AND" T2 "C BE SUBJECT TO BE C3M-RESSED TO 1/2' LITER WHEN THE TEMPERAT 

URE" • .-■ \. ■ <v _^ • •' 

142 PRINT " IS" Tl "C?" ; \ * • 

144 A<9) = UNT< 100#P4*<l/.5>*< ( T2+273 ) / ( Tl+273 ) ) 5 ) /100 . «..' , ■ • 

145 IF. ZOIO .THEN 499 El.SE PRINT • A GigEN SAMPLE OF ' A GAS MAS A VOLUME OF " g4 "L 
ITERS AT* Tl "C AND" P2 ,J • ' . 1 

146 PRINT "" TORR v ; ITS VOLUME AND TEMPERATURE .ARE CHANGED TO' V3 "LITERS AND" T2 " 
Ct " . V • * . .. 

147 PRINT " RESPEC TigELY CALCULATE THE PRESSURE AT THIS CONDITIONS* " • 
1 49 ' A < 1-0 ) = ( I NT ( 1 00*P2.* <M* CT2+273 ) /^T+273 ) * W3i )Vl 00 ' 

499 PRINT\PR.INT ,." • ' ' 

500 Z9=0\IF N% = 1 THEN 199%- ■ 
501 PR I NT 

502 INPUT " YOUR ANSWER — - — >"?B(Z) 

503 PRINT .' • " • ( 

505. I F < ABS < A ( Z ) -B < Z ) ) »>bl THEN 6&6 ELSE PRINT ■ A9*\Sl=St + l 

506 GOTO 1999. • 

507 ! SI COUNTS CORRECT ANSWER'S , 

600 Cl^ClflMF Cl = l THEN PRINT B2$ ELSE PRINT B3*» 
605 IF Cl~l THEN 501 ELSE PRINT A<Z)5 % . , 

606'TF Z=2 THEN PRINT "ml". ELSE IF Z=3 THEN PRINT "ml ' ELSE^ IF Z=5 THEN PRINT. "AT 
M" 'ELSE IF .2=9 THEN .PRINT "ATM" ELSE I F Z-% 0 THEN F'R INT "TORR" ELSE PRINT "liters. 

1999 Z1=Z1 + 1\PRINT\IF Zt»6 THEN 2019 ELSE IF Zl~ll THEN 201 6 . .,/-. 

2014 IF Z>9 THEN ' 2,400 ,. '.-V ^' ' 1 ' * 

2015 C1=0\NEXT Z • ■ ■ : '' ". . „ v 

2016 F' R I N T \ P R I N T \ F' R I N T \ P R I N T " I F YOU WISH TO CONTINUE TO* HARDER PROBLEMS TYPE 'Y 
ES' OTHERWISE ' NO ' ♦ " ? 5 : . ■ •• . 

20 17 INPUT S6$ . 

2018 vPRINT\PR'lNT\ IF .S6<T>= " NO " THEN 2400 ELSE 2498 S •' 

2019 PRINT . . . - .' V 

2020 PRINT' " IF YOU WISH. TO CONTINUE TYPE 'YES'» OTHERWISE TYPE 'NO'*"* ■ '■ 

2021 INPUT 85$ *' ■ ■ t « ' 

2022 PRINT\PRINT\PRINT 

2025 IF S5$="^0" THEN 2400 ELSE 2013 • . • . 

2400 PRINT V "Nl* " HAS ENDED THIS, SESSION AT " TIME$ ( 0)* ♦ "Nl$ 

2401 PRINT^PRINT " HAS ANSWERED ". .&;L > .QUESTIONS CORRECTLY. "\PRINT ' 
2 " 0 " RINT.s" HERE ARE THE CORRECT ANSWERS AND "Nl* " 'S ANSWERS: " ' 50 
2h RI C R I NT\PR I NT\PR INT , '^v 

2aB^anRlNT TAR f ******* .■ i TAR ( I fl T • ************** ■ i tar t an v » **************** 




2500 PRINT TAB<5> " PROBLEM ' » TAB (18) 

2501 PRINT TAB<5> "ft****** U »TAB<18) 

r /n. ; .-. ■ , '• ." ';. 

2505 PRINTN'RRINT " . - 

isio for z*i ro 10 > ■ •;: . 

i5i'2 IK; Z-<f6 THEN PRINT TAB ( 7 ) "Zr ELSE \ PRINT TAB r ( 6 ) ' ' Z. 

2513 PRXWTVrABX^) ' ' A(Z)r TAB<45) " B<Z> ' . • . . •' 

2520 NEXT' Z 

1530 J -IF S6$- " YES" THEN CHAfN" CHE03S " 'ELSE 3000 *;•'•. 

5000 end . ' ' ' ' - : •> 4 • 



CORRECT ANSWER" 5TBC40: "STUDENT'S NSWER" 
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ERLC 



IHE038 12J36 .- 20-APT-77 "v" ■ .V " A " ^ ' 

. REM, - THJSVt.SJ A: MORE DIFFICULT PRACTICE SESSION IN" ©AS LAWS*- • . - 

> . ! THIS* F'RQGRAM HAS B£EN DEVELOPED BY" DR. JULIO GALLARnYjy OF HOSTOS COMMUNITY '* 
>. COLLEGE/ AND WAS SUBSIDIZED BY A GRANT FROM THE NATIONAL SCIENCE FOUNDATION. 

I PRINT\PRI^T\PRINT , 

> INPUT ■"■.■■!•*■*■':;'■;■''■■•. CODE * " y N% • . : . „ 
» J N%=1 WILL GIVE ( A PRINT OUT OF J.THE PROBLEMS WITH ANSWERS ' , ' ' 

* PRINT\PRINT\ LF N%-1 THEN49 • • . ; 

I ! Nl* WILL BE '.THE STUDENT'S NAME WHILE Sl$ WILL BE HIS SOCIAL SECURITY NUMBER 
.1 DIM A<15)..B(.15) ■•-•/ , 

• 2, INPUT ' AFTER THE QUESTION MARK ( ? ): •> TYPE YOUR NAME. MNl* % 
.3 PRINT, ; •. •■• •' .-.<• ■ 

.4 'INPUT " AFTER THE QUESTION MARK (?) ». TYPE YOUR 7 SOCIAL SECURITY NUMBER ♦ v ' f SI 



!0 



17 
\9 
SQ 
52 
55 

58 



NUMBER 
'NQ' . 1 



'\PRINT 



,12 ELSE IF 



S5*.*« 



YES 



THEN PRINT 



TYPE- 



'YES 



HAS STARTED THIS SESSION AT 



TIME* CO).. 



PRINT ' . . 

PRINT •"' YOU-R NAME " IS? "KM* ." AND YOUR SOCIAL SECURITY 
P*RINT IS > " 3 :L :!> " ARE THEY CORRECT? TYPE ' YES ' OR 
INPUT S2* " 
*5 PRINT\Pr\eNT\IF S2*="N0 S \THEN 
'V OR . ' NO f" ONLY ! ! ! ! •" ELSEL-27, 
16' PR'INT\PR^T\GOTO 20 11 

PRINTNPRINTXPRINT' " "Nl* 

ZiAll. 

RANDOMIZE * 

FOR Z = Zl TO 15 . " 

Tl = (INT(10005f<RND +300) )/10\T2=<INT(1000*RND +400) )/10 
! ,T1 AND T2 ARE TEMPERATURES WITH VALUES BETWEEN 50 AND .150 DEGREES, 
pl°=( INT<7050*RND+-5500'),) /10\P2== < INT ( 8056'*RN'D+^50 ) ) /10\P3~ (INK 7000*RND+8000 ) ) / 
L0\M1=(INT( 18.45*RND+155) )/1000\M2=£ INT (-1 845*RND+155 ) )/lOOO 
59 ! PI »P2yP3'^RE" VALUES OF PRESSURE BETWEEN 400. AND 1500 - 
iO P4=(INT<40*RND+15) )/10\P5=(INT<:43*RND+16) )/lO 

i.l ! P4 AND P5 ARE VALUES OF PRESSURE IN 'ATM \ . • ^ ' ' 

52 V1 = (I.NT(10000*RND+2000) )/l0\^2"< INK 1 000'0#RND+2000 ) ) /,tO:; \ ' - 

>3! VI AND ^2 ARE VALUES OF -VOLUME IN MILLILITERS. AND V3 IN LITERS V' '• 
V3=(INK75#RND+15) )/10\V4=( I NT ( 400*RND+100 ) )/!() " • . 

PRINTXPRINT ; 
Z9*=Z9+1\F0R 1 = 30 T0 ..49\PRiNT TAB ( I) " * " ? \NEXT I " 
PRINT' TAB (50) "*"\IF-Z9~2 THEN 80 ELSE PRINT TAB(30) ■*">\PRINT 
" : Z*\>RINT TAB ("50 > '?* u '\GOTO 68 . f . , . 

5Q ; DEF ' FNC(Tl ):= (5* (TI-32) )/9 - 
Jl DEF FNB CTl )=9*T1/S +32 

A9$~ " CORRECT !!!! ! p 

B2$- ' YOU ARE .INCORRECT. TRY AGAIN" 

BJ3*=" YQU ARE WRONG AQAIN. THE . CORRECT ANSWER 
PRINTXPRINT' * ; • .V. !" 

ZOll THEN 155 ELSE PRINT " AN" IDLING, UNTUNED CAR ENGINE CAN PRODUCE" V2 
OF EXHAUST 'AT"- Tl 'c- .. ' . _ ' 

THAT . CONTAINS " V3. "/. ' " ' 



»4 
>7 

is 
:m 



TAB (35) 'PROBL 



J 



15 
) 7 
)8 
»9 

.50 IF 
I/mi^i 
.51 PRINT 
i OF CO'" 
52* PRINT 
.54 A(ll) 
.55 IF 
)F AIR 
.56 PRINT 
THE" - - 

.57; PRINT " TEMPERATURE IS" Tl ?C"AND THE PRESSURE 
SPRINT " VOLUME OF AIR IN YOUR LUNGS? 
!58 A(12)^(INT(V2*(T1+273).*27.S.39/P3) ) AlOO 
60 IF ZOI3 THEN 165- ELSE PRINT ■' IF* V2? "ml OF A GAS 
" TORR HAS A MASS OF "Ml . " ', • 

.6.1 PRINT *&t WHAT- IS ITS' MOLECULAR MASS' 
. — $ *'13)><INT(Ml*6232)Kl000*(T2+273)/(V2*l : \3) ) )/:L00 

ERJC , \ 52 . . 



is -— 

ENGINE 



". DOES THE ^EXHAUST DELIVER \PER MINUTE 
■". (INT (.1219.S12*V2*V3/(273+\Tl ) ) )'/100 
Z0.12 THEN 160 ELSE PRINT " ASSUME THAT YOUR 
AT STP. IF YOU TAKE A " 



BY VOLUME OF CARBON MONOXIDE (CO) . HOW MANY MOLE 

(R=0.082 l-3tm/iTiole/dg>sl) . " 



CAN HOLD ABOUT" V2 




DEEP BREATH AND HOLD IT r THEN DIVE INTO THE OCEAN TO A DEPTH AT WHICH- 

"*TORR> WHAT 'WILL BE THE 



5URE-D AT " 72 "C AND " P3 



L65 IF 'Z<>14 THEM 170 ELSE PRINT ."' CALCULATE THE DENSITY -OF METHANE <CH ) - AT -"■ T 
L AND "• PI " TORR ♦' " v . 

166 .PRINT TAB (37) "4" " • -' • - .- ' ■ ■ - : k 

.67 A<14) = ( ! INT(25«67*Pl/(273-Tl) ) )/100 . • ""' . " ' ' \ 

170 IF K?t5 THEM 500 ELSE PRINT " -HALQTHANE IS A NONFLAMMABLE ? NON IRRITATING* GE 
•IERAL ANESTHETIC* ANJD Iif" . ' . \' , . ■ V, 

171 PRINT*' MANY INSTANCES IS S^JPERIOff TO ETHYL ETHER ♦ AT * Tl °C AND ■ PI "TORR m 

172 PRINT " a OF THE OAS OCCUPIES A VOLUME OF "'VI '•'ml. ITS COMPOSITION IS 12,2%: CA 
i'BON» " \ : I ; 

173 PRINT O.SX .HYDROGEN^,, 40 .3% BROMINE* .18.0%. CHLORINE* AND 28.9% FL0UR1NE. CAL 
:uLATE" . • 'v .. •-• .. : . .. •• ^ - .•/.••••••..• 

•74 PRINT THE MOLECULAR MASS FOR HALOTHANE. " • ■ 

l"7*>A<.i^)« < iht< M'i-*622te*'ibb6*.< r fit&73) /< v**>i )• )') /io6'\ • * •*•*. '' .;. :• 

199 PR^TXPRINT - ■ . , 

500 Z9~0\IF N%=1 " THEN 1999. 

301 PR I NT ■ ' ' ''•',' ' . ' * 

502 INPUT YOUR ANSWER ~-t~— --->"Vb (Z ) ' 7 - 

303 -PRINT - . > './. • ■ '••./.•:;.. 

J05 IF ;<ABS<A'(r)-B<*Z) ) )>.01 THEN 600 -ELSE PRINT A9*\Sl~SlVl ' . 

306 GOTO 1999 , . ... ' V 

307 ! SI COUNTS CORRECT ANSWERS \ '.•' ^ : ' J " • I, 
>00 Cl=01fl\IF C%--i THEN PRINT > B24 ELSE :F£ INT B3$ 5 . • 

>05 IF Cl-=1 THEN 501 ELSE 'PRINT, A°(Z) . : . _ 

>06 IF -2=11 THEN PRINT " moles 0 ELSE IF Z«12 THEN PRINT "ml * ELSE »IF. Z<=13 THEN 
>RINT • amu* * ELSE IF Z~ 14 THEN PRINT '-'i/m-1 * -ELSE" IF Z=15 THEN PRINT 8 ainu " 
1,999' Zl*-ZH : l\PRi>ITMF>Zl=16 THEN 2400 - , " ; 

2014 IF Z>14 THEN 2400 * . ' • 

2015 C1=0\NEXT Z 

2022 PRINT\PRINT\PRINT 

2400 PRINT 11 ,""N1* " HAS ENDED THIS SESSION AT ■* TIME*( 0 ) " . "•• ",N1$ > • - „, , 

2401 PRINTNPRINT VHAS ANSWERED " SI "QUESTIONS CORRECTLY. "SPRINT ^ 

2405 PRINT " HERE AftE. THE CORRECT ANSWERS. AND "Nl$ ," 'S ANSWERS: " ' 
2498 PRINT\PRINT\PRINT > ''j ~" 

2.499 PRINT. TAB (-5) TAB (IS) " " v yTAB(40) . "Hc******^******** 

" ' '•' •" ' ' •' ■ .' ' , .- - • - ■ 

2500 PRINT TAB (5) "PROBLEM TAB (18) » CORRECT ANSWER " $ TAB ( 40 T " STUDENT ' S ANSWER 

2501 PRINT- TAB ( 5 ) ■#*#***'* " MAJfUHS) JTAB ( 40 ) "*.*******'*.# 

2505 ,PRIN,T\PRINT - » ' 

2510 FOR Z = 11 TO i5 ; • ■ ■ 

2512 PRINT TAB(6)' { Z? . f. v- ... - 

2513 PRINT TAB < 24 ) ' i>> A ( Z ) » TAB (45) " B<Z) \.. . " 
>520 NEXT Z ' :'. / 
50000 END • 



vi/ vi/ ol» * 1/ 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 \J/ vl/ 4 4 4 4 4 4 4 4 4 ^ ^/ 4 4 4 4 4 4 4 4 viz 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
IVIP'^^^'P'P^ ff ff ff ff ff ff /1%^ff ff ff ff ff.ff ff ff ff ff ff ff ff ff ffffffffffffffffffffffff PfQ^^^^^^^^^Jf^^Jf^^^^^^^^^Pf^^^^Pf^^^^^^JJC 

ilri \fj- Tr, \lj \ff yJU 4 \b 4 4 4 vl/ 4 4 \V 4 sX 4 Vl* 4 4 4 Vl/ \tt \t/ \l/ \L> vJU \Jj vU vL> 0» \V v^ ^ vJLf \^ \^ \^ \l/ \^ vl/ 4 4 4 4 4 4 %J/ \X< >JL< \L/ \Lf \1/ \U \1/ VV 4 4 4 4 4 \U vv 4 4 4 4 4 4 4 4 sX< 4 vV 

ffffffff^^^pff^Avffffffffffffffffffffffffffffffffffffffffffff ff "ff ffffffffffffffffffffffffffffffffff^^ffffffffffffffffffffffffffffffffffffffffffffffffffff 



4 4. 4 4 4-4 44444 4444444444444444 44 4 4 4 4 ^\|/ 
ff ff ff ff <tp ^^^^^^^^ffffffffffffffffffffffffffffffffffffff ff ff ff ff ff ff 

vV 4 vV 4 4 4 4 4 4 4 4 44 4 4 44444 4 4 4\i/sx»444444444 4^4 4 

Tir^^'r^'p^T'^^ 'P*p ^^*p^#^^^^^^/p^vfs^^.^*i^'p*^^'P'p'P/p 

vLr 4 4 4 4 4 4 44 4 ^/ 4444444444 4 VV 4 4 \1/ 4 4 4 4 v^ 4 4 4 4 4 
<p *P ff^ff V^^^O*ff'Pff^ffffffff'Pffffffffffffffffffffffffffffffffffffff ..■ 

\l/ \V vl/44444444 vi/ Vl/ 4 4 Vl/'- vl/ vi/ vJLr \1/ ii/ 4 4 4 vl/ Vl/ \lt 4 4 4 \Jy vl/ vV \1/ 4 

V^^VY^Y^^^^YY^^Y^^VV ff ff ff ff ffff ff ff ff ff ff 

* * f * * Hp'* * * t * * * * Jf * jM* + * * He * * # * ** ** * * * 

\1/ \l/ vL> U/ 4 4 4 vl/444 4 44444 4 44444 vis vV vV 4 4 4 4^4 4 4 ' 

ff4*ffffff ffff ffff ffff ffff ffffff^^yff ffff ffff ff ff ffff ffff ff^ffffff r- 

.1. j» . I, <^ 4 4 \V \1/ \X> *<!/ "X> vX» 4*4* 4 4 \V vl/ \1/ \l/ vL» \l/ \1/ vl/ vl/ vl/ \1/ >V vV \1/ vV 
n> 'P ^ *p *p 'p *p ^ ^ ^ ^ *v> <p 4> ,/p *1C ^ '|S *p If, & /p ip ^ 'P ^ 

vV\l/vVvV^ vVvVvVsV^^ \V ^ \V \V \V vV vV vl/ vV vl/ vl/ vl/ vl/ vl/ vl/ vV vV vV vV ^ 
^ 'TV ^ * /P ^ ^ ^/P ^ * ^'P^^ ^ *p ^ Pp^ ^4V/p ^ ^ ^ ^ e 

^(/\l/\l/vI^>VNV\V>l'^^S^>V^\VNV>b>l/^^>l/\l/>l/>l/\l/\U\l/vl/Nl/Nl/\i/ 

jjl /p y|\ 4* -t* ^ 'p ^ ^ ^ 'P ^ ^ ^ 'P ^ *p *!> ^ *p ^ /|v /p /fv /p ^ ^ ^ 

\U \U ^4^^lV^^ ^V^T^ vV v> vLTvl/ vV vi/ vV \V 

.p/p/^iTS^^/^/p'P'p'P'P'P'P'P'^ 'P^'P'poS'^'p^oN ,_j 

^ \I# aL>\L> v^ \V \V \V ^ ^ ^ W ^ ■*4f '4t *4f >lf ^ \v 

* 'P * ^ * ^ ^.'P ^ ^ ^ »P ^ ^ ^ *o ^ <P ^ *p «p ^ . - 5t ' H 

vV vl' vl' ^ ^ ^ ^ ^ ^ W ^ nA> sA' \V \1/ ^ >A?t 

JpVp^ /P <^ <^ ^ ^ 'P;<^ ^ ^ ^ ^ ^ ^ /TN <^ <P Vp ^ ^p ^ 

\L> \k/ \L> \U \V\l'\l/\i'V^sJU\^\^\V\^\V\V^\i>\L'\l/\i>\Lf \ ' 

/p Jp/p /p ^ ^ ^ ^ ^ *P ^ ^ ^ ^ ^ ^ ^P & OS 'P ^P ' ^ / ■ 

,j» »y \t* ijf ^ nV ^ ^ ^ >ir ^ ^ ^ ^ >V ^ ^ \^ \ . 

^/p/P^^^^ <Tl ^ ^ ^p ^ ^ ^ <p *^ ^ ^ ^ /p 

*************** 

vV vV \V J/ ^^^^^NVStSt^V^^^/^^" 

^ ^ ^ ^.*P <P <Ti ^ flS n» »p *p ' 

v^ vV vV vU ^if \V vV >fc Nfc Sfc Sfc ^ W ^ >t \V « ' > 

^ ^ ^ ^ <P ^ /p ^ ^ ^ ^ 'P 'PjtV ^ n^/P 4 ■ » 

vIj vIj vij vV vV vVvVvVvV ^vJ^sVvV ^vV vl/ vl/ V ^ . 

/f» yfk >p ^ <^ ^ ^ ^ *^ ^ Jf* 4^ 0^ ^ 

* J^B;* ^ *P J r t *r t vS 'P *P *P *P ^P 'P 

^ *P*P ^ 1* *P 1* 1* fP *P \ ■ 

************* " ^ 

************ ' • ' 

*********** .'• ^ / 

#^##58c***!*** n V. 

Vi/ vV\l/vVvV\VvVvV\V^\V^ 

Jp'pJp^^^'P'P^'P^^ ■ ./ ' 

%L'\I/\L/\i/ si'vl/si'sl'^X' 'i/ ^X* sV N i/ , 

«r ^ /P'p ^ *f* *r> rS^r* 'P *p 

************** r ; j 

\l/»Vvl/\I/^ f \VsV\V\V^sl/>X' , X'vJUvJ/ 

^^y^^^^^'p'r'p'r'P'P'^ 

vl/ vl/ vl/ vV vX> vV vl/ vl/ ^ ^X* vV vV vV iAr 

?P ^P Ov ^ ^V|S /p^T%<P^^\^^Jf^ 

vi/ vt/ vL> \V vV vl/ vV ^ x fy\ls \J/ \V vV 

/py|Svp /p ^/fs *p^t-jp^^ ^ 

Jp/P'Jp Jp «p 'P 'P ^ 'P <p 'P-'^ *p /p ^ 

******** #*##***#*** 
>j/ vL> \ 1/ vV ^ \L" st> ^1/ V V si/ vV'vl/ vV vb vl/ vV vl/ vl/ vl/ 

>£/ vltvl/ >l/vVv^vl/v^vV^\V\V\VvV \V \V vb vJU vV vb vlv 

yF.W *p ^>o\^'P^^'P^ 'P ^ ^ 'p 'p ^ *1\ 
********************** 

*** ft *****************>k** 
****)K********5i<********** 

************************* ~ * ° - . 

vl/ vl/ vl/.v^ vl/ vV viz vis nV^nV \V \J/ \V \V vV vl/ vl/ vl/ vV-vl/ vl/ \1/ vi/ vl/ 
Jf( JJC )|S 5p ?p Jp Jlv ?P 'P ?p /p ^p vp-^ ^ Jf Jf ^C^C >(C?(C)j( ^ 

vl/ vl/ vl/ \1/ ^ \V \l/'4/ vV \1> vJU si> ^ vV vV \V vX' vb v^ \V vl/ vb vb '1/ vl/ vl/ vl/ 
/p j^P 'P ^P." fl* ^ *P ^'P^^^^M^^'P^'P'P/p^^'p/p/p/p 

******* *B* ******** * * ******* 

***************************** 

vl/ vl/ %!/ vl/ % V N^vi/vl/NVvl/\l/\V^l/NV\V\VvV\Vvbv^vi/vl/vl/vl/ vl/ vlj vl/ vl/ \V vV 
?fl ?f Jfv Jf( /P 4\ ^ 'P ^P ^ /P ^P if* J?, if* 4V *#, *P *P 'P *P *P /P'P'T 

******************************* 
******************************** 9 
********************************* 
j(f********************************* 
*********************************** 
*)!f********************************** 

vl/vlsvl/vl/^vl/vbv^vlsv^vlsvV^VvVvVvVvVvbvVvVvl/vl/\^ \ 
'P *P Ov OS ^P 'P 0> 'P 'P 'P 'P <P *rt AN /p AS /p ?f> *f> /p ^ ^S. M Tf, <p ^p ^ ^ /P /^ /p /p /p ^ ^ I 



\V \D \V \V vV vV vV >V 4 4 4 4 4 4 4 4 4 4*4 4 4- ^ <x* vV vV 4 vV \^ \V 

^ ^ ^ ^ ^ ^ ^p ^ ^ ^ ^ /p /^ *p /p *p ^ <p ^^^^^^^^^<p^^n^^^/p/p 

\V4vVvVWvV444 4 S 4 444444vV4 4 vVsVvV\V\V\V^UvVvV4vVsV^V4vVvVvV 
/f, yp /p ^^^^^^^nN'^'P'^^^^/p/p/p iT^'P /p^N'p^'^^P^^'P^^'P^aN'Pas- 

*'4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4*4 vL»\L»4444444444444444 4 
/p ^ *p /p ^ ^ ^ /p ^ A» ^f.* * ^ o» ^ ^ ff* Ay *r* *r* *f* ^ ^ *p 

\V ^ \V 4 4 4 4 4 4 4 4 4 v^ 4 ^/ \V \V 4 vV ^ 4 4 4 4 4 4 4 nV *it vl/ 
/p /p /p ^ /p ^ ^ ^ ^ ^ ny *f* *f* *f* »P *p /p »P »P V 'P /p/pn^^^n^^n^^ *P A» /p /p »p 

*vli vl/ vl/ vl/ vl/ vl/ \V \V VV vV vl/ vl/ vis vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl> vX' vl/ vl/ vl/ vl/ vl/ vly vl/ \Lr 
^}f^^^Pf(^0>^^A>Y^^YY^^P^P O* *P *P * *P ^PjP 'P'P'P'P'pJICJp^C 

4 4 4 4 4 4 4 4 4 4 4- r 4 4 vV \V\VvV4vV4vVvV 4 ^vV444444\V4^ 

^p tf» /ft rf> rf> rf> 'T'/Y* H> fT* *P *P fP ^ *r* ^ 4* ^ ^ *P ^ ^ ^ ^ 

*4 4 4 4 4 4 4 4 sV 4 vV vl^ sV \V vV 4 4 4 vV 4 4 \V 4 4" ^X/ 4' 4 4 vL* vL* >x 
/r> /p ^ ^ ^ ^ 'P ^ /p 'p <p /p /p ^^/p/p/p^^/pM^ A» ^ ^ ^ /p /p ns 

4 4 ^^4444444444 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 -4 4 

a ' /f> ff' /f> /f> nS n* n^,^ *r* fr* Hy *r*'.*r* *r* *r> *r> ^ *P * n* ^ »P.^ ^^*P 'P 

\L> \ L> vVvVvV\^\NvVnVsVsVsV At/ Vi/ vl/ vV vl/ vV vl/ \V vV 4 4 4 4 4 4 4 \V-4 vV 

/ftth ^ 'p ^ ^^^^ffi^^^^N ^/p^ ^^p^/p^^a* <p 4>ypT> 

4 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44 

/f» /f» o> ny rf> *f+ ^ANnN^<p^^ANAN^^^^'PA>n^^^A>^ *p v ^ *p 

<ju <ju *ju <ju ^ ^t, 44 4 ^\0444444 4 4 4 44 4 4 4 4 vV 
ny ny ny ny n* /ft n\ oy ny if* /p /ft /ft ^ /ft /ft /ft ^ ^ /p ^ ^ /p <p /p 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44 4&4 4 \V 4 

/p/p'P/p^^^^^^/p/p/p/p/p/p/p'P'P'P'P'P/p /|v^ /ft /ft /p . 

444444si'vi'444444444444444444vi/ 

/p /p /p vp /p /p/p/p^^^<p^^^«p^^/pAN^^ON'P/p<P'P 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

*• ■ ny *p ny ny nS nS nS nS nS nS ny m> * n\'-/r j ny ^P ny n\ n\ n* ny n* n* /p *p 

jl v^ ^ ^ ^/ ^/ ^/ ^/ vb ^/ vi/ ^/ ^/ ^/ ^/ ^ ^ ^ ^44 4-*)t 4 sx 

^ ^ ^ ^ ^ ^ <(P ^ ^ ^ ^ ^ ^ ^ ^ n* n^ n* n* "VrK *P ^ ^ ^p 

44444^ 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

/ft n> n> /ft /ft /ft /ft /ft /ft ^ /ft /ft /ft /ft o* ny n* »p «p *p ^ ^ 

' v. 7 \^vl»vl»vl»vl»vl»\^\^vl» ^# 4444 4 4444 4 444 

.^^^/p/p^n^n^^ *t±\n* n* n* n* »P n* *f> *p ^ »p ■ 

4 4 4 44444444 4 4 4 4 4 4>4 4 *it 4 \V * 

■ ■ % n* fr* n^ *f* n* n* n* n*. nS ~n> n^-^p *p *p 'P^ / p 

4 4 vV 4 4 4 4 ' 4 4 4 Sit 4 4 4 4 
^/f/f]/ff/ft/ft/ft/ftJf\ n\fv A? n* *r *r* 'P ^ *P 

vl/ vl/ vl/ \V vV vl/ vl/ ■ vl/ 'Sl^viu vl/ \V \V \V 4 \V \V \V vl/ vl/ 1 
» • ■» yp /p ^p ^ jp /p ^v ift ^ /p /p *P n>,n* ^P ^ ^p /p /p 

* \i/. v^ 4 44 4 4 44 4 4 4/ 44 4 4 4^4 

■» , ■ n* /ft /ft ^ /^vis^/p n> , 'r> a* 4* »^ *p n* ^> «p <p 

^ xl/ vVvV444444 4 4 4 4 4 4 vV - 
# ^% yp 4^ vp a* 4* aS 4s/p *p a^'ai /p - 

vV 4 4 4 4 4 4 4 4 4 4 4 4 4 44 vL> , 

\ /ft if* ny ny n* ttjffr\ n* n^'^ 4* 4* 4* ny /fc/f* 4*. 

• 4 4 4 4 4 4 ^ 4 4 4 4 4 4^4 4 4 

r ^^^ /ft /ft /ft n\ /ft /ft ^\ /ft *f\jft ^\ n\ 

":*•'' , "*************** 

'' vV^vV^^^vJ^^^ ^ ^ 

i /ft /ft /ft /ft /ft /ft n* /ft /ft o\ A* 4* *v* *p 

4 4^^444444444 ' 

• . " n\ *|* ^ ^ ny *f> Ay n* *f> n* n* ' 

v^vVvV444 44 444n^ 

■ j • ' ^ *4> ^^^"p^^^^^^^ 

SAMPLE " ' 

vV44444444444vl/ 

^ n\ ^p n* Ay A* Ay A* a* ny ny A* A* A* 

^4^44444 4 4 4 4 4 4 
\ A*n*A^A*A*A*A*A* *p *p Ay *f* A* n* 

c ^ ytf ^ 4 4 4 4 4 4 4 4 4 4 4 4 

^ ^p ^ ^ ^ ^ ^ ^ *p> 'TV A* A* Ay 'P 

*■ v^ ^ ^ *w v^ ^ »^ vV vi/ vV, 4 4 4 4 

v v ' • n^^^n^M* Ay, Ay A* A* *P 4*'^ ^ * ^ 'p 

«( 1 vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vl/ vL» 

^ 4\^*a^^^^^4N^4sa*4s'PAN^<p 

vV vl^ vV vl/ 4 4 \lt \lt 4 4 \l/ \U 4 4 \lt \l/ vl/* - 
^^^^^^^^*p<p/pa*^/p<p^\^/p 

\u \u ^ vir vV vV 4 4 4 4 4 4 4 4 4 4 4 4 4 ' 
A* Ay A* ™ A* A* A* A* A* Ay- Ay 4* 4* n* Ay Ay Ay Ay 

ytf \y 4 4 4 4 vV 4 yW 4 4 4 4 4 4 4 4 \W\lf 
A\^A^AynyAyn^nyAyAyAyA^AyAyAyAy 

vl/ vl/ vl/ vl/ vl/ 4 W vl/ vl^4 vVvl/vV44vVvVvVvl/vl/vl/ 

■> 'p'P *P'P <p *p 4* /p A* Ay A* A* A^A^ A^ A* *p a^ /p/p(p 

4 4 4 4 4 4 4 4 4<4 4 4"4 4 4 44 4 4 4 4 4 
Ay frt Ay A* A* A* A* A* A* fr* A* A*. *P A^ Ay A* 4* A* A* A* A* Ay 

44444444 4*4 4 4 4 4 4 44 4 4 4 4 4*4 

^ ^ny n\ ^p Ay A* A* A* A^ A^ A* A* Ay Ay Ay 'P A^ Ay -A\ »p A* A* 

4 4 4 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 

/ft /ft /ft /f, /p, /f, /f> /p /ft /ft /ft tjS A* A* A* I" *P A\ 4* *p 4* /p 

' 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4^444444 

■j" 4s ^ *p ^ ^ 4^ »P «p 4^ ^ ^ *P 4* A* A* Ay Ay »p ^ 'p * 

' 4444444 4*4 4444444 4 444 4* 4^ 4444 
a ■ * . A* A* Ay Ay Ay A* A* 'p Ay Ay Ay Ay Ay Ay Ay A* *p A* A* ff ^ ^ A* ■ 

1 . /* 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4-4 

■ / *P *P *P *P <p <p ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 

4444444444444444444444444444 
y» /pvp /p/P/p<p/p<p/P/p <p /poS ^ 4s ff ff ff ff ff ff ff ff ff ff ff ff ff. 

44444444444444 44 4444444444444 
ff ff 'P'P^^ffffffffffffffffffffffffffffffff.ffffffffff/p/p 

■ \V 4 4 4444444444444444 4 4 4 4 4 4 4 4 4 4 4 

? /pAvffffffffffffffffffffffffffffffffffffffffff'Pffffff ff ff ff 

444444444444444 4 4 4444444444 44 4 4-b 
n* ff ff ff ff ff ff ff ff ff ff ff ff ff »p ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ■ 

« 44 4 4. 4 4 4 4^/ 4 4 4 4 44 44 4 4 4 4 w.4 4 4 4 44 4 44 vl/ 
ffffffffffffff ff ff ffffffffffffffffffffffff ff ff ff ff ff ff ff ff ff ff ff 

4 4 4 4 4 4 44^4444444444444444444444444 
ffffff* / pa^'P>Pa^ffffffffffffffffffffffffffffff'i>'P/p^asffffffff 

- *v ' 4 4 4 4 4 4 4 44 4444444444444444 4. 44444444' 

/p *P^P *P'P'po>'P'P'P^^^^^4v^^^^^^^^^^^<p<p^ ff ,ff ff ff 

* 4 4 4^44444444444444444444444444444444 

/ftift ffflp ffffffffffffffffffffffffffffff ff JJv ffffffffffffffffff ff ff ff ff ff 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 44 4 4 4 
•ff ff/p^^^/p*p<P'P<p ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 

vv 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 .4 4 4 4 vl/ 4 vl/ 
ffffffffffffffffffffffffffffff ffffffffffffffffffffffff ff ff ff ff ff ff ff.ff ff ff 

4 4 4.4 44vl/4444444 44 vl/ vl/ vl/ 4 vl/ vl/ vis vl/ 4 4 4 vl/ vl/ \lr vV vl/ 4vv44 4 vl/ 
ff ff ff ff ffffffffffffffffffffffffffffffffffffffffffffffffffffffff ffAP ff ff ff ff 



************J**********^************^ J *************************************** 
4 4 4 4 4 4 4 4 44 4 vl^vV 44444 4 4444) 4 44 44 4 4 44444444 vtf 4 4 4 vl/ vl/ 4 4 4 4 4 4 4 4444444444 4 4 4 4 4 4 4 4 4 4 4 44 4 4 4 4 4 

^v ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 1 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ffff/pffffffff^^^/p^'P^^^^^/pff^ff^^^^^^^^^^^^^^^^ffff 

M/4vl/4444 4 44444444 4*4 444444vl/4444444444,4 44 vl>'4 44444vl/444444444444444444444444444444444 
JJC ff ff ^ffffffffffffffffffffff^ffffffffffffff>f<ffffffffffffffffff 
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H,OU MANY PROBLEMS DO YOU WANT ? 3 



^Jlt n)L* ^4/ n ^ 
^ ^ ^ 

PROBLEM 1; 



* A BRASS BAR; WEIGHING 1 39«45 LBS IS MADE OF 79 .08 % ZINC AND THE BALANCE OF 
:0PPER. ;HOU MANY LBS • OF-' COPPER DOES It CONTAIN? ■ 



i \>. % % )|c )fc jjc $ jjc )K 
PROBLEM 2 



A. TRUCK' CARRYING 674 ♦12 LBS OF COAL WEIGHED 1464.58 LBS ♦ ' 
aHA r PERCENT OF THE TOTAL WEIGHT WAS DUE .TO THE WEIGHT OF THE TRUCK? 



\^ \^ \^ «Lp vir OL/ 

. /y^ - 

PROBLEM ( 3 

, \U \^ ^ ^ ^ ^ 

/fi tyi Jfi Jf. 



51 



HOW; MAnV SHEETS OF* METAL'i I/. 8 • INCHES THICK ARE THERE IN A PILE " 75 ♦ 54 « INCHES *' r 



DO, YOU WANT MORE PROBLEMS '? NO 



PROBLEM 

«o ^ ^ ^ «u ^» ^ 

t 



^ ■•"■•V" 

/ correct 'answer 

,. » )fc)j( Jjt'Jfc # )K # # # )K # jjc^Jc j> 



STUDENT ANSWER 



1 



8.25294 
53.9718 
604.32 



0 
0 

,0 




ERLC 



55 



oAFTER/THE QUESTION .MARK (?) t TYPE YOUR NAME . ? JOHN DOE V 
AFTER THE QUESTION MARK <?>» TYPE YOUR SOCIAL SECURITY NUMBER. ? 000001977 
YOUR. NAME is/ JOHN DOE r AND YOUR SOCIAL SECURITY NUMBER , 
ISy 00.000 1977 ♦ ARE THEY CORRECT? . TYPE .'Y' FOR YES AND 'N' FOR NO. ? U ' 
TYPE -'Y' OR '*N' ONLY ! ! ! ! ! - [ 

y.OUR NAME IS r JOHN DOE » AND YOUR SOCIAL SECURITY NUMBER . . * 
IS* 000001977. ARE THEY CORRECT? WE ' Y'. FOR YES AND 'N' FOR NO. ? Y .. V 
HOW MANY PROBLEMS- DO YOU WANT- ? 3 



^ ^ ^ w ^ ^ *v 

^ / p<^^ ^ ^ /js • 

* •■. ' . ' ' PROBLEM . 1 . '•' . - ' " • ; . . 

W & & & \b ylj. *lf ylf yl* * '•"«."■ 

v Vp ^ 'p 'p »p ^ a> ^ ^ . 

A BRASS BAR WEIGHING 56.77" LBS IS MADE OF 48.74 7. ZINC AND THE BALANCE 'OF 
COPPER. HOW MANY LBS. OF COPPER DOES IT CONTAIN? " * v '" 

. ; . . .. ' : , 2 - . • 

... . ,„•••■ / ■ . . - 

YOUR ; ANSWER — - — -->. ? 29 .-10 ' ' ^ 

' ' .... „ . . ■ ■ ' ■ . • 

CORRECT! ! ! '♦. - • T ; : 

; ' ■ PROBLEM 2 , . „ >' • 

%%%%%%%%%% ■ . \ V *. 

' ' • sl ' ^ ■'..**.■' • 

A TRUCK CARRYING 988* 11 LBS OF COAL WEIGHED '*. 190*8 • 91 LBS* 
IHATf PERCENT OF THE TOTAL WEIGHT WAS DUE TO THE* WEIGHT OF THE TRUCK? 

■* ' ' ' • 1 n • 

YOUR ANSWER --- i — — > ?4.S ■ / 
YOU" ARE. INCORRECT. TRY AGAIN. 

YO'UR ANSWER ? '43 ' ' . 

YOU" ARE WRONG AGAIN* THE CORRECT ANSWER IS — — -r — > . 48*24 



PROBLEM 3 



0 



•ERXC WY SHEETS 0F METAL 1/ 1 INCHES ThIICK ARE THERE IN A RILE.. 62*53 IMCHES 



56' 



YOUR ANSWER :> ? 62.5- 

YOU ARE INCORRECT. TRY 'AGAIN ♦ . 

' ' ' . ' ' ' A * * * '• . 



YOUR ANSWER — — — ? 62.58 

# — 

CORRECT! ! j , 
DO yOU WANT MORE PROBLEMS ? NO 



f " 



THE STUDENT JOHN DOE» HAS ENDED. THIS SESSION. 
JOHN DOE * HAS ANSUERB& 2 , QUESTIONS CORRECTLY. 
HERE ARE° JOHN DOE'S ANSWERS AND THE CORRECT ANSWERS. 



PROBLEM 

\^ ilj \Jb ^ \^ ^ 
Tfi, ^ ^ ^\ <^ 



CORRECT ANSWER 

' *Jlf \^ ^1/ ^J/ vj/ \^ ^/ vAf ^/ ^/ vL* \ N 

^ ^ ^ ^ Jfi ^ ^ *|V /fk yfs 



STUDENT ANSWER 

>^ vO ^ ^ ^ ^ >^ ^ ^ yl/ ylj yl/ 
«^ ^\ ^ ^ ^ ^ ^ 7fi ^ 



1 



29.1003 
48 . 237 
62.58 



29.1 . 
48 • 
62.58 



<er|c 
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